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EXPERIENCIA Y PRACTICAS EN LOGO 


UANDO definimos los pro- 
cedimientos con entrada, 
utilizamos una variable me- 
diante la cual introducimos 
un valor en el procedimien- 
to para que sea utilizado en 
todas aquellas órdenes que 
contengan el nombre de la 
variable. ' 
Para utilizar esta variable lo único que 
tenemos que hacer es indicar al lado del nom- 
bre del procedimiento, el nombre con el que 
queremos identificarla precedido de dos pun- 
tos. En la orden en donde vayamos a usar la 
variable tenemos que colocar también el nom- 
bre de ésta. 

A la hora de ejecutar un procedimiento 
que contenga una variable, tenemos que indi- 
car a continuación del nombre del procedi- 
miento el valor que asignamos a dicha varia- 
ble. 


— Para definir un procedimiento con 
entrada: 


— Para nombre de procedimiento: 
nombre de variable. 


— Para ejecutarlo: 
nombre de procedimiento valor de la variable. 


Vamos a conocer mejor lo que es una 
variable de este tipo, cómo funciona y las po- 
sibilidades que nos ofrecen. 

Una variable (en general), es una pe- 
queña zona de memoria que está identificada 
por un nombre y que no tiene un valor fijo o 
determinado. Esta zona la utilizamos para 


guardar en ella valores que dependiendo de 
lo que necesitemos serán unos u otros. Un va- 
lor asignado a una variable permanecerá en 
ella hasta que volvamos a cambiarlo. A esta 
zona podemos acceder tanto para guardar 
algo en ella como para, simplemente, consul- 
tar su contenido. 

Una constante es un valor fijo, por ejem- 
plo, el valor 1. 


A = 5; asignamos una constante a una 
variable. 

A = B; asignamos el valor de una varia- 
ble a otra variable. 


Este tipo de variables que utilizamos en 
los procedimientos tienen una diferencia con 
otros tipos de variables. 


Con el siguiente ejemplo podemos 
verlo, 


Define el siguiente procedimiento: 


? PARA EJEMPLO :DATO 

> ESCRIBE :DATO 

> REPITE 3 [AV :DATO GD 120 ] 
> ESCRIBE :DATO 

> FIN 


Es un procedimiento que utiliza una va- 
riable (DATO) en tres sitios diferentes, 

Primero ordenamos que escriba el va- 
lor de la variable, luego que dibuje un trián-, 
gulo en el que sus lados miden el valor que le 
demos a :DATO, y, por último, que vuelva a es- 
cribirlo. 


Si ahora lo ejecutamos: 
? EJEMPLO 20 


Escritura infija de una expresión: los operadores 
se colocan entre los operandos. 
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En la pantalla obtenemos y en este or- 
den lo siguiente: 


— En la zona texto, un 20. 

— En la zona de gráficos, el dibujo de 
un triángulo. 

— En la zona de texto, otro 20. 


A la hora de definir el procedimiento, 
una zona de la memoria se ha reservado y se 
le ha dado el nombre de DATO. Cuando al eje- 
cutarlo introducimos un valor (20), éste pasa a 
esa zona de la memoria. Empiezan a realizar- 
se las órdenes y cuando encuentra una que 
necesita el valor de la variable DATO, va a la 
memoria, consulta en la zona que tiene desti- 
nada para almacenar variables y busca una 
que se llame DATO, Una vez que la ha encon- 
trado, saca el valor que contiene y lo deposita 
en el lugar donde se requiera. 

Continúa haciendo las órdenes y en to- 
das las que encuentre el nombre de la varia- 
ble, realiza el mismo proceso. 

Una vez que se haya ejecutado el pro- 
cedimiento introduce la siguiente orden: 


? ESCRIBE :DATO 


Volvemos a solicitar, al igual que hacía- 
mos dentro del procedimiento, que se escriba 
en la pantalla el valor que contiene la variable 
DATO. 

Como resultado obtenemos el siguiente 
mensaje: 


DATO NO TIENE VALOR 


¿Qué ha ocurrido? ¿Por qué ahora no obtene- 
mos el valor 20? 

La variable se ha borrado y con ella su 
contenido. Sólo ha permanecido durante el 
tiempo que ha durado la ejecución del proce- 
dimiento. 

Este tipo de variables reciben el nom- 
bre de: 


VARIABLES LOCALES 
Vamos a ver algunas de las formas con 


las que podemos asignar valores a las varia- 
bles. 


— Indicando un valor constante: 
? EJEMPLO 3 


— Indicando una expresión aritmética: 
? EJEMPLO (4* 5) / 2 
— Indicando el nombre de otra varia- 


ble: 


Supongamos que tenemos dos procedi- 
mientos y que cada uno de ellos utiliza una va- 
riable diferente: 


? PARA A :DATO 1 

> AV:DATO 1 

> GD90 

> B:DATO 1 

> FIN 

? PARA B:DATO 2 

> BP 

> REPITE 4 [AV :DATO 2 GD 90] 
> FIN 


En el procedimiento A se hace una lla- 
mada al procedimiento B que necesita un va- 
lor para la variable DATO 2. El valor que pasa 
al procedimiento B es el mismo que se ha uti- 
lizado en el A. 


— Indicando el nombre de una variable 
en combinación con un valor constante: 


En el ejemplo anterior se podría reali- 
zar lo siguiente: 


? PARA A ¡DATO 1 
> AV:DATO 1 

> GD90 

> B:DATO 1 +10 
> FIN 


El valor que pasa a la variable utilizada 
en el procedimiento B es el mismo que se uti- 
liza en A, pero aumentado en 10 unidades, 


Procedimientos con dos entradas 


Si en los procedimientos con una entra- 
da utilizamos una variable, es lógico pensar 
que en los de dos entradas se van a utilizar 
dos. 

A la hora de definir el procedimiento 
tenemos que especificar un nombre para cada 
una de las variables que vamos a utilizar: 


? PARA EJEMPLO :DATO 1 :DATO 2 


Existe un orden de prioridad para evaluar una 


expresión. 


Tienen que ir separadas por un espacio 
y precedidas de dos puntos. 

Una vez definidas las variables que se 
van a utilizar, podemos hacer uso de ellas en 
cualquier parte del procedimiento: 


> REPITE 4 [AV :DATO 1 GD 90] 
> AV:DATO 2 
> FIN 


A la hora de ejecutarlo tenemos que es- 
pecificar un valor para cada una de las varia- 
bles que deberán ir acompañando al nombre 
del procedimiento y separadas por un espa- 
cio: 


? EJEMPLO valor de la 1.* variable va- 
lor de la 2.* variable. 


Los valores se asignarán a las variables 
según el orden en el que se hayan escrito, es 
decir, el primer valor que aparezca a conti- 


nuación del nombre del procedimiento, se. 


asigna a la primera variable que se haya defi- 
nido. 

Estas variables, al igual que en el caso 
de los procedimientos de 'una entrada, sólo 
tendrán valor el tiempo que dure la ejecución 
del procedimiento. 

Una vez que sabemos cómo se definen 
los procedimientos con dos entradas, vamos a 
ver su utilidad y aplicaciones. 

Si defines el siguiente procedimiento: 


? PARA RECTANGULO 
> REPITE 2[AV 50 GD 90 AV 25 GD 90] 
> FIN 


y ahora lo ejecutas: 
? RECTANGULO 


Obtendrías en la pantalla el siguiente 
dibujo: 


| 


Fig. 1. 


El rectángulo que has dibujado tiene 
unas dimensiones determinadas. Una altura 
de 50 pasos o puntos y una anchura de 25. 


Hay órdenes que.no admiten 


Estos dos valores son los que debemos 
ir variando si queremos dibujar rectángulos 
de diferentes tamaños. 

Bastaría con utilizar dos variables en 
sustitución de las dos constantes que apare- 
cen en el procedimiento. Una que determine 
la altura y otra la anchura. 

? PARA RECTANGULO :ALTO :AN- 
CHO 

> REPITE 2[AV :ALTO'GD 90 AV :AN- 

CHO GD 90] 
> FIN 


El mismo rectángulo de antes podemos 
ahora obtenerlo de la siguiente forma: 


? RECTANGULO 50 25 


Ahora, con sólo ir pasando distintos va- 
lores al procedimiento, podemos dibujar rec- 
tángulos de todos los tamaños 

' Compruébalo con las siguientes órde- 
nes: 


RECTANGULO 20 10 
RECTANGULO 40 20 
RECTANGULO 10 20 
RECTANGULO 20 40 
En la pantalla te aparecerá lo siguiente: 


? 
E 
A 
? 


Fig. 2. 


Utilizando el procedimiento rectángulo 
podemos también hacer bonitos dibujos: 


? REPITE 30[RECTANGULO 505 GD12 ] 


Fig. 3. 


variables. 
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? REPITE 10 [ RECTANGULO 50 30 GD 
36 ] 


Fig. 4. 


Con el siguiente ejemplo demostramos 
cómo los procedimientos con dos entradas 
pueden ser de gran utilidad a la hora de di- 
bujar algo donde queremos tener opción a ele- 
gir por ejemplo, tamaños o números de veces 
que queremos que aparezca un dibujo de- 
terminado. 

Definimos un primer procedimiento 
que llamamos BARRIO, que utiliza dos varia- 
bles, CASAS y PISOS. La primera determina el 
número de casas que queremos dibujar y la 
segunda la altura de éstas. En este procedi- 
miento vamos determinando la posición en 
donde tiene que ir cada casa y llamando al 
procedimiento ALTURA: 


PARA BARRIO :CASAS :PISOS 

BP 

SL 

PONPOS [-100 -50] 

REPITE :CASAS [ALTURA SL RE :PlI- 
SOS * 20 GD 90 AV 70 GI 90] 

FIN 


El procedimiento ALTURA dibuja, en 
primer lugar, la estructura de la casa. La altu- 
ra de la casa viene determinada por el núme- 
ro de pisos qué tiene multiplicado por 20, que 


WENN 


- es lá altura que hemos fijado para cada uno. 


A continuación hay una llamada al pro- 
cedimiento PUERTA, que es el que dibuja la 
puerta de entrada al edificio. Y por último, lla- 
mamos al procedimiento VENTANAS tantas 
veces como pisos hay. Este dibuja dos venta- 
nas y un balcón. 


? PARA ALTURA 

> BL 

> REPITE 2 [AV (¿PISOS + 1) * 20 GD 90 
AV 60 GD 90] 


> PUERTA 

> REPITE :PISOS [VENTANAS SL AV 
20 GI 90 AV 45 GD 90 RE 25] 

> FIN 


Este es el procedimiento para dibujar la 
puerta: . 


PARA PUERTA 

GD 90 AV 20 Gl 90 

REPITE 2[AV 15 GD 90 AV 20 GD 90] 
GD 90 AV 10 Gl 90 

AV 15RE 15 Gl 90 

AV 30 GD 90 

FIN 


< VWVWVVVV> 


éste el que dibuja las ventanas y el 
balcón: 


PARA VENTANAS 

SL 

AV 25 GD 90 

AV 7 Gl 90 BL 

REPITE 4 [AV 8 GD 90] 

SL RE 5 GI 90 

RE 17 GD 90 BL 

REPITE 2 [AV 5 GD 90 AV 12 CD 90] 
REPITE 6 [CD 90 AV 2GI90 AV 5 RE 
3] 

AV 8 GI 90 AV 2 GD 90 

REPITE 3 [AV 8 GI 90] 

SL AV 19 Gl 90 

BL 

REPITE 4 [AV 8 GD 90] 

FIN 


VVWVWVVV VVVWVVVVV>" 


Con todos estos procedimientos pode- 
mos dibujar tanto el número de casas como la 
altura que queramos, pero si elegimos valores 
superiores a tres para el número de casas y 
de 6 para el de pisos, las dimensiones de la 
pantalla no nos permite verlo correctamente, 
ya que se sobrepasan. 

A la hora de ejecutar estos procedi- 
mientos, basta con introducir el nombre del 
procedimiento general (BARRIO) y a continua- 
ción indicar el valor de las dos variables que 
se utilizan. 


Si queremos que aparezca una sola casa 
de cinco pisos: 


? BARRIO 1 5 


Dos formas para expresar las operaciones 
aritméticas: escritura infija y escritura prefija. 


Y obtendríamos el siguiente dibujo: 


Fig. 5. 
Para tres casas de cuatro pisos: 
? BARRIO 3 4 
Y obtendríamos este otro dibujo 


Fig. 6. 


Observa cómo con un solo procedi- 
miento de dos entradas conseguimos dibujar 
cualquier polígono regular de cualquier ta- 
maño. 

? PARA FIGURA :N :L 

> REPITE :N [AV :L GD 360 / :N] 

> FIN 
¡N determina el número de lados del polígono 
y :L la longitud de cada uno de los lados. 

Podemos ejecutarlo directamente 


? BP GI 90 FIGURA 6 20 


O 


Fig. 7. 
? BP GI 90 FIGURA 8 10 


o también podemos definir un procedimiento 
que realice las figuras que queramos. 


PARA CONJUNTO 
OT 

BP 

GI 90 
FIGURA 6 20 
ESPERA 30 
BP 

FIGURA 8 10 
ESPERA 30 
BP 

FIGURA 9 10 
FIN 


Para ejecutar este procedimiento: te- 


VVWVWVVVVVVVV"> 


clea: 
? CONJUNTO 


Con CONJUNTO dibujamos tres figuras 
geométricas diferentes. Al terminar de dibu- 
jar una figura y tras una breve espera, la pan- 
talla se borra y se ejecuta la siguiente figura. 

Otro ejemplo de procedimiento con dos 
entradas en este dibujo de un fichero. Pode- 
mos elegir el número de cajones y el tamaño 
de cada uno de ellos. 

FICHERO es el procedimiento de dos 
entradas. 


:V para el número de cajones. 
:H para la altura de cada cajón. 


PARA FICHERO :V :H 

BP 

SL 

PONPOS [-15 -70] 

REPITE :V [CAJON :H] 

PONPOS [-20 -75] 

BL 

REPITE 2 [AV 10 +:V * H GD 90 AY 
40 GD 90] 

FIN 


El dibujo de los cajones lo realizamos 
con el procedimiento de una entrada CAJON. 
? PARA CAJON :H 
BL 
> REPITE 2[AV :H GD 90 AV 30 GD 90] 
> SL 
> PONX -5 
> 
== 


A A AOS 


V 


PONY COORY + CH / 3) 
BL 


En la escritura prefija el signo de la ren 
va delante de los operandos. 
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> REPITE 2[AV 3 GD 90 AV 10 GD 90] 
> SL 

> PONY COORY + (2 * (H / 3)) 

> PONX -15 

> FIN 


Para ejecutar el dibujo llamamos al pro- 
cedimiento FICHERO, indicando dos valores, 
el primero para el número de cajones y el se- 
gundo para la altura de cada cajón. 


? FICHERO 10 10 


Fig. 8. 
? FICHERO 4 30 


Fig. 9. 


Ml Escritura prefija de las operaciones 
aritméticas 

Ya conocemos la sintaxis y la forma de 
la escritura infija (los operadores se colocan 
entre los operandos); vamos a ver ahora la es- 


critura prefija de algunas operaciones aritmé- 
ticas. 


? ESCRIBE SUMA 5 6 


Recordamos que ESCRIBE es una primi- 
tiva que indica que el resultado de la opera- 
ción, en este caso una suma, debe aparecer 
en la pantalla. 


Con la orden anterior obtenemos el re- 
sultado de 5 más 6. 

En la escritura prefija el tipo de opera- 
ción precede a los operandos y sólo admite a 
dos de ellos, que pueden ser números o ex- 
presiones cuyo resultado sea numérico. 


? ESCRIBE SUMA nl n2 
Observa la equivalencia entre la escri- 


tura infija y la escritura prefija de algunas ope- 
raciones aritméticas con estos ejemplos. 


? ESCRIBE 5-3 equivale a ? ESCRIBE RES- 


TA 53 

? ESCRIBE 5*3 equivale a ? ESCRIBE PRO- 
DUCTO 5 3 

? ESCRIBE 15 / 3 equivale a ? ESCRIBE CO- 
CIENTE 5 3 

? ESCRIBE 5 + equivale a ? ESCRIBE 

10/5 SUMA 5 CO- 
CIENTE 10 5 


En las divisiones, si el divisor es cero, 
el LOGO muestra el mensaje: 


IMPOSIBLE DIVIDIR POR CERO 


Aunque es posible mezclar las dos for- 
mas de escritura en una misma expresión arit- 
mética, es conveniente no hacerlo. 

Las operaciones prefijas se evalúan se- 
gún su orden de escritura; así: 


? ESCRIBE SUMA 4 3 RESTA 5 PRO- 
DUCTO 4 
8 


suma 4 y 3, al resultado le restas 5 y lo multi- 
plicas por 4. Equivale a: 


? ESCRIBE (4 +3 -5)* 4 
8 


Hemos visto cuatro operaciones en forma pre- 
fija. 


SUMA nl n2 suma nl y n2 
RESTA resta n2 de nl 
PRODUCTO multiplica nl y n2 
COCIENTE divide nl entre n2 


La operación COCIENTE sólo devuelve 
la parte entera de la división. 

Nota: Algunas versiones de LOGO no 
disponen de la operación resta en escritura 
prefija. 


La escritura prefija necesita para operar dos 


valores: ni más ni menos. 


10 


Practica esta nueva forma de escritura 
con los siguientes ejemplos: 


— ? ESCRIBE SUMA 5 6 7 
11 
NO SE QUE DEBO HACER CON 7 


— ? ESCRIBE SUMA 20 2 PRODUCTO 
10 
22 
NO SE QUE DEBO HACER CON 10 


— ? ESCRIBE SUMA 20 PRODUCTO 
10 COCIENTE 20 2 
120 


El segundo dato de la suma es el resul- 
tado de la multiplicación de 10 con el resulta- 
do de la división de 20 entre 2. Otra forma más 
clara de escribir esta misma expresión sería 
utilizando los paréntesis. 


ESCRIBE SUMA 20 (PRODUCTO 10 (COCIEN- 
TE 20 2) 


— ? ESCRIBE SUMA 40 50 + 20 
110 


— ? ESCRIBE SUMA 500 
500 


— ? ESCRIBE PRODUCTO 500 
500 


— ? ESCRIBE COCIENTE 500 
FALTAN DATOS PARA COCIENTE 


— ? ESCRIBE SUMA COCIENTE 1025 
10 


— ? ESCRIBE SUMA 5 COCIENTE 10 2 
10 


— ? ESCRIBE COCIENTE 5 3 
1 


Hi Gestiones con ficheros LOGO 


Al guardar uno o varios procedimientos 
en el disco, el LOGO crea un fichero con el 
nombre que hallamos determinado y por de- 
fecto .LOG, en este fichero el/los procedi- 
mientos se guardan codificados en ASCII. 

Que los ficheros creados por el LOGO 
estén en ASCII, nos permiten acceder a ellos 


con cualquier comando o programa que ges- 
tione ficheros ASCII. 

Por ejemplo, desde el sistema operati- 
vo (DOS) si tecleamos: 


TYPE nombre.LOG 


nos aparecerá por pantalla el listado de todos 
los procedimientos que contenga el fichero 
nombre.LOG. 

Programas que permitan gestionar es- 
tos ficheros son, por ejemplo, los editores. Des-. 
de los que podemos acceder a cualquier fi- 
chero creado por LOGO. 


EDLIN nombre.LOG 


EDLIN es un editor de línéas con el que 
podemos manipular cualquier fichero codifi- 
cado en ASCII. 

Si una vez cargado el fichero .LOG en 
el editor modificamos, introducimos o borra- 
mos alguna orden y luego guardamos el fiche- 
ro con el mismo nombre, al volver a cargarlo 
con el LOGO observaremos que todo lo que 
hemos hechos en el editor aparece en los pro- 
cedimientos. 


Mi Ejercicios 


1. Utilizando un procedimiento de dos entra- 
das y dos de una entrada, intenta. realizar 
el siguiente dibujo, teniendo en cuenta que 
se debe poder aumentar o disminuir el ta- 
maño del círculo sin que varíe el del trián- 
gulo, y viceversa. 


PASO, 


Fig. 10. 


2. Define los procedimientos necesarios para 
dibujar una puerta cuyo tamaño puedas va- 
riar sin modificar los procedimientos. 

3. Realiza el siguiente dibujo, pudiendo indi- 
car al ejecutarlo la posición en X y el color. 


Es conveniente no mezclar en una misma 
expresión aritmética los dos tipos de escritura. 
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> GI90 
> CIRCULO :C 
y > TRIANGULO :T 
[] > FIN 
cu Procedimiento para dibujar un triángu- 
lo cuyo lado depende del valor que especifi- 
quemos cuando llamamos a TRIANGULO. 


? PARA TRIANGULO :T 


Bo. 11. > REPITE 3 [AV :T GD 120] 
> FIN 
4. Dibuja esta cara en diferentes posiciones E ro : 
sin que para ello tengas que modificar los Procedimiento para dibujar un círculo, 
“procedimientos. el tamaño lo determinará el valor de :C. 


? PARA CIRCULO :C 
> REPITE 36 [AV :C GD 10] 
> FIN 


Al ejecutar el dibujo debes especificar 
dos datos, el primero para determinar el ta- 
maño del círculo y el segundo para determi- 
nar el tamaño del triángulo. 


? DIBUJO 3 30 


2: 
mula El procedimiento DIBUJO inicializa la 
5. ¿Son correctas las órdenes siguientes? pantalla y determina el orden de ejecución 
— ? ESCRIBIE COCIENTE 400 PRO- del dibujo. Es un procedimiento de dos entra- 
das, la altura y la base. 
DUCTO 40 L ta la dibui tilizand 
— ? ESCRIBE PRODUCTO 400 SUMA .. APS A A 
40 -10 tángulos, para ello desde DIBUJO se realizan 


— ? ESCRIBE COCIENTE 400 suma 4. “arias llamadas al procedimiento RECTAN. 


10 ? PARA DIBUJO :H :B 
— ? PARA EJEMPLO :A B > BP PONCL 2 
— ? AV:LADO + 10 > SL 
— ? REPITE VECES [AV :VECES *5 GD > PONY -(:H / 2) 
90] > BL 
> RECTAN :H :B 
: > SL GI90 AV :B 
il Soluciones a los ejercicios ss Cd 0 
1: > RECTAN :H :B 
Este primer procedimiento tiene dos Hb , 
E z > PONX :B / 4 
entradas, una la utilizamos como parámetro > PONY 0 
del procedimiento CIRCULO y la otra como > BL 
parámetro del procedimiento TRIANGULO. > RECTAN (H /3-3)(B/2) 
? PARA DIBUJO :C :T > SL 
> BP > PONY COORY - 1 


Los ficheros que crea el LOGO cuando 
guardamos en el disco procedimientos, están 
codificados en ASCII, 
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PONCL 2 

BL 

RELLENA 

PONCL 2 

SL PONX —(:B - :B / 4) 
PONY 0 


L 

RECTAN (H / 3 - 3) (B / 2) 
SL 

PONY COORY -3 

PONCL 1 

BL 

RELLENA 

OT 

FIN 


RECTAN dibuja un rectángulo de base 
:B y altura :H, datos que se determinan al eje- 
cutar el procedimiento DIBUJO. 


? PARA RECTAN :H :B 
> REPITE 2[AV :H GD 90 AV :B GD 90] 
> FIN 


Ejecución del dibujo 
? DIBUJO 60 30 


VVVWVWVVVVVVVVVVV 


Pig. 13. 


3: 


Definimos el procedimiento DIBUJO con 
dos entradas, una para determinar el color y 
la otra para indicar la coordenada X, en la que 
situaremos el dibujo. 


PARA DIBUJO :X :C 
BP 


SL 

CENTRO 
PONX :X 
PONCL :C 

BL 
CUADRADO 10 
CUADRADO 20 
CUADRADO 30 


VNAVUNOYNENO YES 


> CUADRADO 40 
> FIN 


En DIBUJO inicializamos la pantalla, po- 
sicionamos a la Tortuga, inicializamos el color 
y dibujamos cuatro cuadrados de diferentes 
tamaños; para ello, llamamos al procedimien- 
to CUADRADO indicando la longitud de lado, 
ya que la entrada de este procedimiento de- 
termina el tamaño del cuadrado. 


? PARA CUADRADO :L 

> REPITE 4[ AV:LGD 90] 
> GD 90 AV :L 

> GI90 

> FIN 


Lo ejecutamos, por ejemplo: 
? DIBUJO -40 2 


El dibujo lo posicionamos en la coorde- 
nada X =- 40. 
- El color de las figuras será aquél cuyo 
código sea igual a 2. 


4: 


Las entradas del procedimiento CARA 
son las que fijan la posición del dibujo. 


:X para la coordenada X 
:Y para la coordenada Y 


PARA CARA :X :Y 
P 


SL 

PONY :Y PONX :X 
GI 90 

BL 

REPITE 4[ AV3CD90 ] 
SL 

PONRUMBO 0 
PONY :Y + 15 

GI 90 

PONX :X - 10 

OJO 

PONRUMBO 0 

SL 

PONY :Y + 15 
PONX :X + 20 

GI 90 


PONY :Y PONX :X 
PONRUMBO 0 
RE 10 GI 90 AV 10 GI 135 BL 


VVWVWVWVWVWVVVVVVVVVVVVVVVV" 


Una constante es un dato fijo. 


EXPERIENCIA Y PRACTICAS EN LOGO NARA 


> REPITE 10[ AV 2GI10] PS 5: 

> SL 

S PONY «Y — ? ESCRIBE COCIENTE 400 PRO- 

: DUCTO 40 

o CORRECTO 

> PONRUMBO 0 

> RE 22 El resultado es 10, la división de 400 en- 

> CI90 RE 2 BL tre 40. 

a Us — ? ESCRIBE PRODUCTO 400 SUMA 
40 -10 

En CARA hacemos dos llamadas a otro CORRECTO 

procedimiento para dibujar los ojos. 

? PARA OIO El resultado es 12000, corresponde al 

Y BL J producto de 400 con el resultado de 40 + (-10). 

> AV 10S5L Cl 180 AV 5 Gl 90 — ? ESCRIBE COCIENTE 400 SUMA 

> BLAVS5RE 10 -40 

> FIN INCORRECTO 


Al ejecutar el procedimiento CARA de- El LOCO muestra en pantalla el mensa- 


bes especificar dos valores: el primero para la je IMPOSIBLE DIVIDIR POR CERO, ya que 40 
coordenada X y el segundo para la coordena- + (-40) es cero 
da Y. 

— ? PARA EJEMPLO :A B 
INCORRECTO 


La variable B debe ir precedida de dos 
puntos. 


— ¡?.  AV:LADO+.10 
CORRECTO , 


El resultado final de lo que se avanza es 


Fig. 14. 10 más el valor de la variable LADO. 

Dibujemos tres caras en posiciones di- . 4 

ÓN — ? REPITE VECES [ AV :VECES * 5 
GD 90 ] 
?,. BP INCORRECTO 
? CARA -40 30 
-? CARAO-30 Hay que indicar la variable VECES como :VE- 
? CARA 300 CES 


A una variable se le puede asignar un valor que 
venga determinado por una expresión aritmética. 


Al ejecutar un procedimiento de dos entradas 
tenemos que detallar, junto al nombre del 
procedimiento, dos datos. 


Al 
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ONTINUANDO con el con- 


y 


trol de movimiento de figu- 1070 REM 
ras mediante el teclado, en 1080 REM *x*x* DEFINICION DE LAS TECLAS *x*kx / 
este nuevo tomo vamos a o 
ver algunas cosas más sobre id 
PS GA 1110 PRINT “DEFINICION DE LAS TECLAS" 
cómo controlar una o más fi- E NA A do " 
guras que se muevan por la 1130 PRINT 
pantalla, 1140 PRINT ' Cada vez que aparezca una" 
Ya vimos cómo hacer que ciertas teclas HN EEE o A O E d 
del teclado nos sirviesen para movernos por 1170 PRINT “que controle dicha direc. " 
la pantalla. Hablamos de que la elección de di.- 1180 PRINT:PRINT:PRINT 
chas teclas es muy importante de cara al futu- 1190 DIM B$(8) 
ro usuario del programa que estamos realizan- 1200 FOR I=1 TO 8 
do. Dijimos que era muy importante elegir una 10% PEA q 
secuencia de teclas que sean cómodas al 1230 PRINT " “¿REM 25 ESPACIOS 
usuario, aunque su programación resulte más 1240  LOCATE 15,1 
complicada. 1250 . PRINT AS; 
El programa que vamos a ver a conti- 1260 A$=INKEYS: IF A$="" THEN GOTO 1260 
nuación nos servirá para que el usuario rede- A - 
fina sus propias teclas de control. Antes de 1290 FOR J=1 TO 200 
nada veamos dicho programa. 1300. ' NEXT J 
1310 NEXT 1 
1320 REM 
1330 REM x*xx* VISUALIZACION DEL LAS TECLAS **x 
1340 REM 
1350 CLS 
1360 PRINT "TECLAS DEFINIDAS" 
EN A , 


1380 PRINT:PRINT 

1390 PRINT "Las teclas definidas son:" 
1400 PRINT 

1410 RESTORE 1550 

1420 FOR I=1 TO 8 

1430 LOCATE 7+1,1 


Fig. 1. Si nuestros programas permiten redefinir las teclas, és- 1440 READ A$ 
tos serán mucho más fáciles al usuario. 1450 PRINT B$(1);" = ";A$ 
1460 NEXT 1 


1470 PRINT:PRINT 
1480 PRINT "ESTAS DE ACUERDO (S/N) " 


1000 REM Adol jajajajaja dado lolokookok 1490 LET A$=INKEYS$: IF -A$="" THEN GOTO 1490 
1010 REM * MOVIMIENTO CONTROLADO DE UN x 1500 IF A$="N" OR A$="n" THEN RUN 

1020 REM * ASTERISCO. - 4 1510 1F A$<>"S" AND A$<>"s” THEN GOTO 1490 
1030 REM * % 1520 REM 

1040 REM * LAS TECLAS DE MOVIMIENTO *k 1530 REM xxx LINEAS DE DATA x*xkx 

1050 REM * SON REDEFINIBLES. E 1540 REM 


1060 REM oooaoaaoiddSd dalla lalola joio lololalajoiooK 1550 DATA “IZQUIERDA”, "DERECHA" 
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1560 DATA "ARRIBA", "ABAJO". 
1570 DATA "ARRIBA-1ZQ",/"ARRIBA-DER" 


1580 DATA "ABAJO-IZQ",”"ABAJO-DER" 
1590 REM 
1600 REM *x*x* PROGRAMA GENERAL xxx 
1610 REM 
1620 CLS 


1630 LET Xi=10 
1640 LET Yi=10 
1650 LET X=10 
1660 LET Y=10 
1670 LOCATE Y1,X1 
1680 PRINT " ” 
LOCATE Y,X 


LET SW=0:LET AS=INKEYS 

1720 FOR I=1 TO 8 

1730 IP A$=B$(1) THEN LET SW=1 

1740 NEXT 1 j 

1750 IF SW=0 THEN GOTO 1710 

1760 LET X1=X 

1770 LET Yi=Y 

1780 REM 

1790 REM *** ELECCION DEL MOVIMIENTO 4xx 
1800 REM 

1810 IF A$=B35(2) 
1820 IF A$=B$(1) 
1830 IF A$=B$(3) 
1840 IF A$=B$(4) 
1850 IF A$S=B5(5) 
1860 IF A$=B$(6). 
1870 IF A$=B3(8) 
1880 IF A$S=B3(7) 
1890 REM 

1900 REM 

IF X>40 THEN LET X=40 
IF X<1 THEN LET X=1 
IF Y>24 THEN LET Y=24 
1F Y<1 THEN LET Y=1 
1950 GOTO 1670 


THEN LET X=X+1 

THEN LET X=X-1 

THEN LET Y=Y-1 

THEN LET Y=Y+1 

THEN LET X=X-1:LET Y=Y-1 
THEN LET X=X+1:LET Y=Y-1 
THEN LET X=X+1:LET Y=Y+1 
THEN LET X=X-1:Y=Y+1 


- Las modificaciones que hay que reali- 
zar en el programa para ordenadores distin- 
tos'del IBM y compatibles son las siguientes: 


COMMODORE: 


1100 PRINT CHR$(147) 

1220 POKE 214,15:POKE 211,0 

1240 POKE 214,15:POKE 211,0 

1260 GET A$:IF A$="" THEN GOTO 1260 
1350 PRINT CHR$(147) 

1430 POKE 214,7+I1:POKE 211,0 

1490 GET A$:IF A$=" THEN GOTO 1490 
1620 PRINT CHR$(147) 

1670 POKE 214, Y1:POKE 211,X1 

1690 POKE 214, Y:POKE 211,X 

1910 1F X>29 THEN LET X=29 

1920 IF X<0 THEN LET X=0 

1930 IF Y>23 THEN LET Y=23 

1940 1F Y<0 THEN LET Y=0 
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MSX: 


1220 LOCATE 1,15 
1240 LOCATE 1,15 
1430 LOCATE 1,7+1 
1670 LOCATE X1,Y1 
1690 LOCATE X, Y 


AMSTRAD: 


1220 LOCATE 1,15 

1240 LOCATE 1,15 

1430 LOCATE 1,7+I 

1670 LOCATE X1,Y1 

1690 LOCATE X, Y 

1930 1F Y>25 THEN LET Y=25 


SPECTRUM: 


1190 DIM B$(8,1) 

1220 PRINT AT 5,1; 

1240 PRINT AT 5,1; 

1260 LET A$=INKEY$:IF A$="" THEN 
GOTO 1260 

19101F X>31 THEN LET X=31 

1920 IF X<0 THEN LET X=0 

1930 1F Y>21 THEN LET Y=21 

1940 1F Y <0 THEN LET Y=0 


Como puede verse en este programa, 
es el usuario el que indica qué teclas serán las 
que permitirán el movimiento del asterisco 
por la pantalla. Incluir una rutina como ésta en 
todos nuestros programas de juegos (o de otro 
tipo) nunca viene mal, pues permite que el 
usuario elija lo que él cree que es mejor 
para él, 

Habréis apreciado que el programa es 
muy parecido al 3 del tomo anterior. De he- 
cho, es el mismo, pero con las modificaciones 
necesarias para que se puedan redefinir las 
teclas. Ahora vamos a ver el funcionamiento 
del programa. Las partes del programa que no 
han cambiado y que, por tanto, ya hemos ex- 
plicado, no las tocaremos. 


Línea 1100. Borramos la pantalla. 

Líneas 1110 a 1130. Imprimimos un 
mensaje que le dice al usuario la forma en que 
tiene que utilizar la redefinición de teclas. 

Línea 1190. Definimos un vector alfanu- 
mérico de ocho elementos. Dentro de cada 
elemento de dicho vector almacenaremos una 
de las teclas de movimiento. 

Línea 1200. Comienza un bucle, dentro 
del cual iremos imprimiendo la dirección del 
movimiento, cogeremos el carácter del tecla- 
do que le interesa al usuario y lo almacenare- 
mos. 


Línea 1210. Se lee la dirección de las lí- 
neas DATA, que se encuentran a partir de la lí- 
nea 1550, 

Línea 1220. Colocamos el cursor en una 
cierta posición de la pantalla (primera colum- 
na de la línea 15). 

Línea 1230. Imprimimos 25 caracteres 
en blanco. Esta impresión no sirve para nada 
en la primera vuelta del bucle, pero, a partir 
de la segunda, nos permite borrar la antigua 
dirección que esté escrita en la pantalla. 

Línea 1240. Volvemos a colocar el cur- 
sor en la misma posición donde lo colocamos 
anteriormente. 

Línea 1250. E imprimimos la dirección 
de la cual queremos saber qué tecla ha elegi- 
do el usuario para su movimiento. 

Línea 1260. Esperamos hasta que el 
usuario haya pulsado alguna tecla. 

Línea 1270. Almacenamos en el vector 
B$0 la tecla pulsada. 

Línea 1280. Imprimimos el carácter 
igual seguido de la tecla pulsada, 

Líneas 1290 y 1300.,Se realiza un bucle 
en vacío para hacer un retardo de tiempo. Esto 
sirve para que el usuario vea en la pantalla la 
tecla que ha pulsado y que ha elegido para 
controlar el movimiento del asterisco en esa 
dirección. 

Línea 1310. Aquí termina el bucle prin- 
cipal. 

Línea 1350. Una vez que el usuario ha 
definido todas las teclas borramos la pantalla. 


Líneas 1360 a 1400. Se imprimen una 
serie de líneas que le dicen al usuario que aho- 
ra vamos a ver juntas todas las teclas que él 
ha definido. 


Línea 1410. Hacemos que el puntero 
que indica la línea DATA de la cual tenemos 
que leer se vuelva a colocar en la línea 1550. 
Si no hiciésemos esto, el ordenador nos daría 
un error, ya que no encontraría más líneas 
DATA en el resto del programa. 


Línea 1420. Comenzamos un bucle, 
gracias al cual vamos a imprimir todas las di- 
recciones que permite el programa y, junto a 
cada dirección, la tecla que el usuario ha ele- 
gido para controlarla. 


Línea 1430. Colocamos el cursor en la 
primera columna de una línea que depende 
del valor de la variable índice del bucle (D. 
En la primera vuelta se colocará en la línea 8. 
En la segunda en la 9. En la tercera, en la 10, 
y así sucesivamente. 
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Línea 1440. Leemos de las líneas DATA 
la dirección. 

Línea 1450. Imprimimos la tecla que 
controla dicha dirección, un signo igual y la di- 
rección. 

Línea 1460. Aquí termina el bucle. 

Línea 1470. Dejamos dos líneas en 
blanco. 

Línea 1480. Le preguntamos al usuario 
si está de acuerdo con las teclas que él mismo 
ha elegido. 

Línea 1490. Y esperamos hasta que éste 
pulse una tecla. 

Línea 1500. Si la tecla pulsada es una'N 
(o una n), entonces volvemos al principio del 
programa para que el usuario tenga la opor- 
tunidad de volver a definir las teclas. 

Línea 1510. Si el usuario pulsó alguna 
tecla distinta de N (y de n), volvemos a la lí- 
nea 1490 para seguir preguntando hasta que 
pulse o S o N (también se puede pulsar s o n). 

Líneas 1550 a 1580. En estas cuatro lí- 
neas se encuentran las ocho direcciones sobre 
la que el usuario tiene que definir las teclas. 


A partir de este momento el resto del 
programa es igual, salvo por unas pocas lí- 
neas. Estas son: 


Línea 1710. En esta línea, aparte de mi- 
rar si el usuario ha pulsado alguna tecla des- 
de el teclado, se pone a cero la variable SW. 
Esta nos servirá para, más adelante, saber si 
la tecla pulsada era una de las permitidas. 

Línea 1720. Comenzamos un bucle, 
dentro del cual veremos si la tecla pulsada por 
el usuario es una de las permitidas. 

Línea 1730. Si la tecla pulsada (A$) es 
igual a algunas de las permitidas y que el 
usuario ha definido (B$), entonces hacemos 
que la variable auxiliar SW tenga valor 1. 

Línea 1740. Aquí termina el bucle de 
comprobación. 

Línea 1750. Si SW es igual a 0, enton- 
ces es que el usuario no pulsó ninguna de las 
teclas permitidas. En tal caso, devolvemos el 
control del programa a la línea 1710 para que 
se recoja una nueva tecla del teclado. 


El grupo de líneas comprendido entre 
la 1810 y la 1880, ambas inclusive, se encar- 
gan de saber cuál de las teclas permitidas ha 
pulsado el usuario. En el tomo anterior estas lí- 
neas eran casi iguales, pero en vez de compa- 
rar la variable A$ con otra variable B$, se com- 
probaba A$ con una letra específica. Al poner, 
en vez de teclas específicas, una variable po- 
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demos variar el valor de dicha variable y ha- 
cer que este grupo de líneas sirva para cual- 
quier grupo de teclas. : 

El resto del programa es exactamente 
igual que lo que estuvimos viendo en el tomo 
anterior. 

En los programas que hemos visto has- 


ta ahora, la estrella sólo se movía cuando el: 


usuario pulsaba una tecla. Si el usuario no pul- 
saba ninguna tecla, el asterisco se quedaba 
parado. En muchas ocasiones es necesario 
que el objeto a mover se esté moviendo con- 
tinuamente por la pantalla, en la última direc- 
ción que se le haya indicado, hasta que el 
usuario cambie dicha dirección, El programa 
que vamos a ver a continuación, aparte de de- 
jarnos definir las teclas de movimiento, hace 
que el asterisco se mueva por la pantalla has- 
ta que nosotros le cambiemos la dirección y el 
sentido del movimiento pulsando alguna tecla. 


1000 
1010 
1020 
1030 
1040 
1050 
1080 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1180 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 


ES 


REM * MOVIMIENTO CONTROLADO DE UN * 
REM * ASTERISCO. * 
REM * J * 
REM * LAS TECLAS DE MOVIMIENTO * 
REM * SON REDEFINIBLES. xk 
REM MaS odiado lolo lallalojolalojojoK 
REM 
REM 
REM 
CLS 
PRINT "DEFINICION DE LAS TECLAS” 
PRINT "o y 
PRINT 
PRINT " 
PRINT 
PRINT "pulsa la tecla que quieres” 
PRINT "que controle dicha direc. 
PRINT:PRINT:PRINT 
DIM B$(8) 
FOR I=1 TO 8 

READ AS 

LOCATE 15,1 

PRINT " “:REM 25 ESPACIOS 

LOCATE 15,1 

PRINT AS; 

AS=INKEY$:1F A$="" THEN GOTO 1260 

LET B$(I)=A5$- 

PRINT " = ";A$ 
1290 FOR J=1 TO 200 
1300 NEXT J 
1310 NEXT 1 
1320 REM 


X** DEFINICION DE LAS TECLAS *x*x 


Cada vez que aparezca una" 
“direccion en la pantalla ,” 
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1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 


1480. 


1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 


1800 


16810 
1620 
16830 
1640 
1650 
1660 
1670 
1680 
1890 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1775 
1780 
1790 
13800 
1810 
1820 
1830 
1840 
13850 
1880 
1870 
1880 
1390 
1900 
1910 
1920 
1930 
1940 
1950 


REM *x*x* VISUALIZACION DEL LAS TECLAS *x*x* 
REM 
CLS 
PRINT “TECLAS DEFINIDAS" 
PRINT 
PRINT:PRINT 
PRINT "Las teclas definidas son: " 
PRINT 
RESTORE 1550 
FOR I=1 TO 8 
LOCATE 7+1,1 
READ A$ 
PRINT B$(1);" = "¡AS 
NEXT I 
PRINT:PRINT 


PRINT "ESTAS DE ACUERDO (S/N)" 

LET A$=INKEY$:IF A$="" THEN GOTO 1490 
IF A$="N" OR A$="n" THEN RUN 

IF A$<>"S" AND A$<>"s" THEN GOTO 1490 
REM - 

REM **x LINEAS DE DATA **x 

REM 

DATA 
DATA 
DATA 
DATA 
REM 

REM 

REM 

CLS 

LET 

LET 


E O non TM 


"IZQUIERDA", "DERECHA" 
"ARRIBA", "ABAJO" 
"ARRIBA-17Q", "ARRIBA-DER” 
"ABAJO-IZQ", "ABAJO-DER" 


*xk* PROGRAMA GENERAL. xk 


X1=10 

Y1=10 

LET X=10 b 

LET Y=10 

LOCATE Y1,X1 

PRINT " " 

LOCATE Y,X 

PRINT "x"; 

LET SW=0:LET A$=INKEYS$ 
FOR I=1 TO 8 

IF A$=B3(1) THEN. LET SW=1 


NEXT 1 

IF SW=0 THEN LET A$=C$ 

LET Xi=X 

LET Y1=Y 

LET C$=A$ 

REM 

REM *x** ELECCION DEL. MOVIMIENTO *xkx 
REM 

IF -A$=B$(2) THEN LET X=X+1 

IF A$=B3(1) THEN LET X=X-1 

IF A$=BS5(3) THEN LET Y=Y-1 

IF A$=B5(4) THEN LET Y=Y+1 

IF A$=B$(5) THEN LET X=X-1:LET Y=Y-1 
IF” A$=B$(6) THEN LET X=X+1:LET Y=Y-1 
IF A$=B$(8) THEN LET X=X+1:LET Y=Y+1 
IF A$=B$(7) THEN LET X=X-1:Y=Y+1 
REM ' 

REM 

IF X>40 THEN LET X=40 


IF X<1 THEN LET X=1 
IF Y>24 THEN LET Y=24 
IF Y<1 THEN LET Y=1 
GOTO 1670 


Las modificaciones para ordenadores 
distintos del IBM y compatibles son: 


COMMODORE: 


1100 PRINT CHR$(147) 

1220 POKE 214,15:POKE 211,0 

1240 POKE 214,15:POKE 211,0 

1260 GET A$:IF A$="" THEN GOTO 1260 
1350 PRINT CHR$(147) 

1430 POKE 214,7+I:POKE 211,0 

1490 GET A$:IF A$="" THEN GOTO 1490 
1620 PRINT CHR$(147) 

1670 POKE 214, Y1:POKE 211,X1 

1690 POKE 214, Y:POKE 211,X 

1910 IF X>39 THEN LET X=39 

1920 1F X<0O THEN LET X=0 

1930 IF Y>23 THEN LET Y=23 

1940 IF Y<0 THEN LET Y=0 


MSX: 


1220 LOCATE 1,15 
1240 LOCATE 1,15 
1430 LOCATE 1,7+1 
1670 LOCATE X1, Y! 
1690 LOCATE X Y 


AMSTRAD: 


1220 LOCATE 1,15 

1240 LOCATE 1,15 

1430 LOCATE 1,7+1 

1670 LOCATE X1,Y1 

1690 LOCATE X, Y 

1930 IF Y>25 THEN LET Y=25 


SPECTRUM: 


1105 LET C$="" 

1190 DIM B$(8,1) 

1220 PRINT AT 5,1; 

1240 PRINT AT 5,1; 

1260 LET A$=INKEY$:IF A$="" THEN 
GOTO 1260 

1910 1F X>31 THEN LET X=31 


1920 1F X<0 THEN LET X=0 
1930 1F Y>21 THEN LET Y=21 
1940 IF Y<0 THEN LET Y=0 


Fig. 2. Con el programa 2, el asterisco se'está moviendo conti- 
nuamente. 


Como puede apreciarse, las modifica- 
ciones son muy pequeñas. Sólo se ha tenido 
que variar la línea 1750 e incluir una nueva (la 
1775) para que el asterisco, una vez pulsada la 
primera tecla, esté continuamente moviéndo- 
se. Explicaremos ahora el efecto de estos dos 
cambios. 

Cuando el programa se ejecuta, y una 
vez definidas las teclas, el valor de A$ y de 
C$ es nulo (A$="" y C$="). En cuanto el usua- 
rio pulsa una de las teclas permitidas, A$ pasa 
a ser dicha tecla. Como ejemplo digamos que 
pulsó la tecla P (movimiento hacia la derecha). 
Cuando el programa llega a la línea 1775 se al- 
macena en Cf$ el valor de A$ (en este caso una 
P). Una vez que el programa ha movido el as- 
terisco una posición más a la derecha y vuel- 
ve a la línea 1710. Si no se pulsa ninguna otra 
tecla, como SW es igual a cero, entonces ha- 
cemos que A$ sea igual a Cf. El valor de C$ 
no ha sido cambiado, por lo que sigue siendo 
una P. A$ es una P y el programa sigue hacia 
abajo, con lo que el asterisco se mueve otra 
posición a la derecha. Este movimiento conti- 
núa hasta que el usuario pulsa otra de las te- 
clas permitidas. 

Veamos una especie de juego basado 
en este mismo principio. 


1000 REM aaa oolololololololalalajalolalcjolRjalajak: 


1010 REM * 
1020 REM * 
1030 REM * 


1040 REM * LAS TECLAS DE MOVIMIENTO 


1050 REM *k SON REDEFINIBLES. 


1060 REM ASAS NOOO OOOO OIOIOAIOR OJO 


1070 REM 


JUEGO DEL ASTERISCO 


xk 
* 
xk 
* 
*k 


1080 REM *xx DEFINICIÓN DE LAS TECLAS *x*x 


1090 REM 
1100 LET N=0 
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1110 CLS ¿ 
1120 PRINT "DEFINICION DE LAS TECLAS" 
1130 PRINT: "=== ======oioio- S 
1140 PRINT 
1150 PRINT " Cada vez que aparezca una" 
1160 PRINT "direccion en la pantalla ," 
1170 PRINT "pulsa la tecla que quieres” 
1180 PRINT "que controle dicha direc. " 
1 1190 PRINT:PRINT:PRINT 
1200 DIM B$(4) 
1210 FOR I=1 TO 4 
1220 READ AS 
1230 LOCATE 15,1 
1240 PRINT ” q ":REM 25 ESPACIOS 
+ 1250 LOCATE 15,1 
1260 PRINT AS; 
1270 AS=INKEY$: 1F A$="" THEN GOTO 1270 
1280 LET B$(1)=A4$ 
1290 PRINT “= "¡AS 
1300 FOR J=1 TO 200 
1310 NEXT J 
1320 NEXT I 
1330 REM : 
1340 REM *x** VISUALIZACION DE LAS TECLAS *xx 
1350 REM 
1360 CLS 
j 1370 PRINT “TECLAS DEFINIDAS" 
e A _>EO-AAáká]— y] ] E 
1390 PRINT:PRINT 
1400 PRINT "Las teclas definidas son:" 
1410 PRINT 
1420 RESTORE 1560 
1430 FOR I=1 TO 4 
1440 LOCATE 7+1,1 : 
1450 READ A$ 
1460 PRINT B$(1);5" = ";A$ 
1470 NEXT 1 - 
1480 PRINT:PRINT 
1490 PRINT "ESTAS DE ACUERDO (S/N)" 
1500 LET A$=INKEY$: 1F A$="" THEN GOTO 1500 
1510 IF A$="N" OR A$="n" THEN RUN 
1520 IF A$<>"S” AND A$<>"s" THEN GOTO 1500 
1530 REM 
s 1540 REM *xx* LINEAS DE DATA x*xx*x 
1550 REM 
». 1560 DATA "IZQUIERDA", "DERECHA" 
1 Pe ' 1570 DATA "ARRIBA", "ABAJO" 
; 1580 REM 
1590 REM x*xx* PROGRAMA GENERAL xkx 
1600 REM 
1610 CLS 
1620 LET Y=10 
1630 LET X=10 
1640 DIM A(41,25) 
1650 LET A$=B$(2) 
1680 GOTO 1710 
1670 LOCATE Y,X 
1680 PRINT "xXx"; 
1690 LET SW=0 
1700 LET A$=INKEYS 
1710 FOR I=1 TO 4 
1720 IF A$=B$(1) THEN LET SW=1 
1730 NEXT 1 
1740 IF SW=0 THEN LET A$=C$ 
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1750 LET C$=A$ 
1760 REM 

1770 REM xk ELECCION DEL MOVIMIENTO xxx 
1780 REM 
IF A$=B$(2) THEN LET X=X+1 
IF A$=B$(1) THEN LET X=X-1 
IF A$=B$(3) THEN LET Y=Y-1 


1820 IF A$=B$(4) THEN LET Y=Y+1 

1830 REM 

1840 REM. x*x*x* COMPROBACION DE CHOQUE Ak 

1850 REM 

1860 IF A(X,Y)=0 THEN GOTO 1900 

1870 LOCATE 21,1 

1880 PRINT “LO SIENTO HAS CHOCADO” 

1890 END 

1900 LET A(X,Y)=1 

1910 LET N=N+1 

1920 REM ] 

1930 REM *x*x* COMPROBACIÓN DE LOS LIMITES DE LA PANTALLA. xk 
1940 REM : : 
1950 IF X>40 THEN LET X=40 


IF X<1 THEN LET X=1 
IF Y<1 THEN LET Y=1 

IF Y>24 THEN LET Y=24 
1990 GOTO 1670 


Como siempre, las variaciones que hay 
que hacer en el programa para que funcione 
en ordenadores distintos del IBM y compati- 
bles son las siguientes: 


COMMODORE: 


1100 PRINT CHR$(147) 

1230 POKE 214,15:POKE 211,0 

1250 POKE 214,15:POKE 211,0 

1270 GET A$:IF A$="" THEN GOTO 1270 
1360 PRINT CHR$(147) 

1440 POKE 214,7+I:POKE 211,0 

1500 GET A$:IF A$=" THEN GOTO 1500 
1610 PRINT CHR$(147) 

1670 POKE 214, Y:POKE 211,X 

1870 POKE 214,21:POKE 211,0 

1950 IF X>39 THEN LET X=39 

1960 IF X<0 THEN LET X=0 

1970 IF Y<0 THEN LET Y=0. 

1980 IF Y>23 THEN LET Y=23 


MSX: 


1230 LOCATE 1,15 
1250 LOCATE 1,15 
1440 LOCATE 1,7+I 
1670 LOCATE X, Y 
1870 LOCATE 1,21 


AMSTRAD: 


1230 LOCATE 1,15 
1250 LOCATE 1,15 
1440 LOCATE 1,7+I 


1670 LOCATE X, Y 
1870 LOCATE 1,21 


SPECTRUM: 


1200 DIM B$(4,1) 

1230 PRINT AT 15,1; 

1250 PRINT AT 15,1; 

1270 LET A$=INKEY$:IF A$="" THEN 
GOTO 1270 

1440 PRINT AT 7+1,1; 

1670 PRINT AT Y,X; 

1870 LOCATE 21,1; 

1950 1F X>31 THEN LET X=31 
1960 1F X<0 THEN LET X=0 
1970 IF Y<0 THEN LET Y=0 
1980 1F Y>21 THEN LET Y=21 


Aunque el juego no es ninguna maravi- 
lla, ilustra perfectamente todo lo que hemos 
estudiado hasta ahora. El juego consiste en 
mover el asterisco por la pantalla el mayor 
tiempo posible sin chocar con el rastro que va 
dejando. Para ello podemos movernos hacia 
arriba, hacia abajo, a la derecha y a la izquier- 
da. Podemos definir las teclas como queramos. 
En el momento que choquemos con nuestro 
propio rastro el programa terminará. 

La explicación del programa no es ne- 
cesaria, pues todo lo que en él aparece lo he- 
mos visto anteriormente. De ahí el parecido 
con los demás programas de este tomo. 

Lo único que hay que decir del progra- 
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Fig. 3. El programa 3 nos muestra cómo hacer un juego senci- 
llo y divertido. 


ma es que, para no tener que mirar en la pan- 
talla si hemos chocado con nosotros mismos, 
se define una matriz de 41 x 25 elementos (tan- 
tos como caracteres en la pantalla). Como la 
matriz está dividida en filas y columnas (al 
igual que la pantalla), cada vez que el asteris- 
co pase por 5 una cierta posición de la panta- 
lla, almacenaremos en la misma posición de la 
matriz un uno (1). Con esto conseguimos que, 
tras cada movimiento del asterisco, podamos 
comprobar si dicha posicion de la pantalla ya 
ha sido ocupada. En caso afirmativo es que nos 
hemos chocado. En caso negativo nos move- 
mos a la nueva posición y ponemos un uno (1) 
en la del elemento correspondiente de la ma- 
triz. 
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Una vez entendido cómo funciona este 
juego, se propone otro que aparecerá en el 
próximo tomo. Este consistirá en mover un gu- 
sano por la pantalla en busca de alimento. El 
alimento aparecerá de forma aleatoria por la 
pantalla. Cuanto más alimento coma el gusa- 
no, más grande se hará y más difícil será con- 
trolarlo sin que se choque consigo mismo. El 
juego habrá de ser una versión simphficada 
del famoso SNAKEPIT. 


puntos = 100 


Marcados 


Fig. 4. Estos son algunos de los elementos que puede llevar el 


programa. 


TRUCOS Y RUTINAS BASICAS 


OR fin, en este tomo vamos 
a poder ver el programa 
gestor de ficheros termina- 
do en su totalidad, pero, 
debido a su gran extensión, 
no vamos a poder comen- 
tarlo hasta el siguiente 
tomo. Las modificaciones 


necesarias para que el programa funciones 
en el MSX, AMSTRAD, SPECTRUM y COM- 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 


REM ARSS SO SIOO SOS lOjOIOIOIOloIOK 
REM * GESTOR DE FICHEROS x* 
REM ASAS SISSI IOOIOK 
REM 


MODORE también aparecerán en el próximo 
tomo. 


Se ha renumerado el programa para 
que quede más compacto y más armonioso en 
su totalidad. Algunas de las rutinas se han 
cambiado a última hora para ganar velocidad 
o bien por haber encontrado algún algoritmo 
más elegante y bonito, pero la filosofía y la for- 
ma de funcionar cada rutina permanece sin al- 
terar. 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
DIM 
LET 
CLS 
LET 
LET 
LET 
LET 
LET 
LET 


AMO III III O IOJOK: 
kx Por Fco. Morales Guerrero *x 
AMS aloja lalalala lolololololok 
* (c) Ed. Siglo Cultural, 1987 * 
AGO lll dolciojoloK 


XXX INICIALIZACION vox 


F$(1000),4$(10),N(20),N3(20, 4) 
TT=0 


A$="MENU INICIAL” 

N=2 

A$S(1)="DEFINTR FICHERO NUEVO" 
A$(2)="ENTRAR EN EL MENU GENERAL” 
M$="2" 

WsS="1". 


GOSUB 5980 . 
IF A$="1"” THEN GOSUB 7250:GOTO 240 


CLS 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


A$="MENU GENERAL.” 

N=8 

A$(1)="INTRODUCIR FICHAS" 
A$(2)="GESTIONAR FICHAS" 
A$(3)="ORDENAR FICHAS" 
A$(4)="BUSCAR FICHAS" 
A$(5)="GRABACION" 
A$S(6)="LECTURA” 
A$(7)="IMPRESORA” 
A$(8)="TERMINAR”" 

M$="38" 
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450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
800 
810 
620 
830 
840 
850 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 

» 910 
920 
930 
940 
950 
9860 
970 
980 
990 


GOSUB 5960 

LET AVAL (AS) 

ON A'GOSUB 490,650, ES 1450, 1990, 2550, 3200 
GOTO 330 

REM 

REM *xx*x* INTRODUCIR FICHAS x*+x** 

REM 

CcLS 

PRINT " INTRODUCIR FICHAS” 

PRINT. "=====zzi=cico=ecmom==" 

PRINT "Fichas en memoria = ";TT 

LET NF=TT+1:LET F$(NF)=CHR$(254) 
GOSUB 8010 

LET TT=TT+1 E 

LOCATE 20,1 : y 
PRINT "INTRODUCIR OTRA FICHA (S/N)" 
LET A$=INKEYS$: IF A$="" THEN GOTO 610 
IF A$="S" OR A$="s" THEN GOTO 490 

IF A$="N" OR A$="n" THEN RETURN 
GOTO 610 

REM y 
REM *x*x* GESTIONAR FICHAS *xx*x 

REM 

LET A$="GESTION DE FICHAS" 

LET N=4 

LET A$(1)="BORRAR FICHA" 

LET A$(2)="LIMPIEZA DEL FICHERO" 

LET A$(3)="MODIFICAR FICHA" 

LET A$(4)="VER UNA FICHA" 

GOSUB 5960 

CLS ; 

ON VAL(A$) GOTO 770,850,890,980 
PRINT "BORRAR FICHA" 


IF N(1)=0 THEN PRINT “NO HAY FICHAS”:GOSUB 5440:RETURN 
INPUT "QUE No. DE FICHA ";NF 

IF NF<1 OR NF>77 THEN GOTO 810 

LET FS$(NF)=CHR$(253)+F$(NF) 

RETURN 

PRINT "LIMPIAR FICHERO” 


GOSUB 5680 
RETURN 

PRINT “MODIFICAR FICHA" 

PRINT A s 

PRINT 

INPUT "QUE FICHA MODIFICAS ";NF 

IF NF<1 OR NF>TT THEN PRINT "ESA FICHA NO EXISTE":GOSUB 5440: RETURN 
GOSUB 8290 

cul 0 

GOSUB 8010 

RETURN 

PRINT "VER UNA FICHA" 


1000 PRINT 

1010 INPUT "QUE FICHA QUIERES VER ";NF 

1020 IF NF<1 OR NF>TT THEN PRINT "ESA FICHA NO EXISTE":GOSUB 5440: RETURN 
1030 GOSUB 8290 

1040 RETURN 

1050 REM 

1060 REM. *X%** ORDENAR FICHAS +xkx* 

1070 REM 

1080 CLS 
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1090 PRINT ' ORDENAR FICHAS" 

VOONPRE NT ELE Les ES 120 ME , 

1110 PRINT:PRINT:PRINT 

1120 INPUT “ORDENAMOS POR EL CAMPO No. : "¿NC 

1130 GOSUB 6890 

1140 RETURN É 


1150 REM j 
1160 REM *xxx* BUSCAR FICHAS x*xx* 
1170 REM 
1180 PRINT "BUSQUEDA DE FICHAS” 
TADO RENT CEE OS oe 
1200 PRINT:PRINT 
1210 IF N(1)=0 THEN PRINT “NO HAY FICHAS":GOSUB 5440:RETURN 
1220 LET A$="BUSQUEDA DE FICHAS” . 
1230 LET N=3 
1240 LET A$(1)="VER FICHAS” 
1250 LET A$(2)="BUSCAR POR CAMPO Y VALOR” 
1260 LET A$(3)="BUSCAR FICHAS BORRADAS" 
1270 LET W$="1" 
1280 LET M$="3" 
1290 GOSUB 5960 
1300 CLS E 
1310 PRINT “BUSQUEDA DE FICHAS” 
; VIZOFPREINDOY Ses SS 
1330 PRINT:PRINT:LET SW=VAL(A$)-1 
1340 ON VAL(A$) GOTO 1350, 1390, 1430 
1350 INRUT “INTRODUCE PRIMERA FICHA ";N1 
1360 PRINT 
1370 INPUT "INTRODUCE ULTIMA FICHA ";N2 
1380 GOTO 1430 
1390 INPUT "QUE VALOR HAY QUE BUSCAR ";A$ 
1400 PRINT 
1410 INPUT "EN QUE CAMPO ";NC 
1420 GOTO 1430 
1430 GOSUB 6230 
1440 RETURN 
1450 REM d 
1460 REM **xx* GRABACION xk 
1470 REM 
1480 LET A$="GRABACION DEL FICHERO” 
1490 LET N=2 
1500 LET A$(1)="GRABACION EN DISCO" 1 
1510 LET A$(2)="GRABACION EN CINTA” 
1520 LET W$="1" 
1530 LET M$="2" : , 
1540 GOSUB 5960 y a 
1550 CLS . ' : 
1560 PRINT "GRABACION DEL FICHERO" 
157O?PRINT" Mans 2 oo 
1580 PRINT:PRINT 
1590 INPUT "NOMBRE DEL FICHERO ";B$ 
1600 IF LEN(B$)>12 THEN GOTO 1590 
1610 PRINT:PRINT ) 
1620 PRINT “GRABANDO ”;B$ 
1630 IF A$="2" THEN GOTO 1810 
1640 OPEN B$ FOR OUTPUT AS +1 
1650 PRINT +$1,N(1) 
1660 FOR Z=1 TO N(1) 
1570 PRINT $1,N(2+1) q e 
1680 NEXT Z:FOR Z=1 TO N(1) 
16890 PRINT $1,M$(Z) 
1700 NEXT Z:PRINT $1,TT > 
1710 FOR Z=1 TO TT 
1720 PRINT $1,FS(2Z) 
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ona sa sos SSESIESE 
E EIA 
o = SERENESS 
OS 
urea 


SO ENE a ERE 


Sendas Aia E 


os 


A sanas 
oi 


ene cnoess 


EE 


LET CC=VAL(N$(R,2)) 
FOR V=1 TO LEN(F$(Z)) 
IF MID$(F$(Z),V, 1)=CHR$(254) THEN LET CD=CD+1:IF CD=CC TBEN LET Zi 


¿LET V=LEN(F$(Z)) 


NEXT V:LPRINT TAB(VAL(N$(CR,3)));:LET CR=CR+1 
FOR V=Z1 TO LEN(F$(Z)) 
] IF MID$(F$(Z),V, 1)=CBR$(254) THEN LET V=LEN(F$(Z)):GOTO 3080 
LPRINT MIDS(FS(Z),V,1); 
NEXT Y 
NEXT R 
IF N$(1,4)="-1" THEN LPRINT CHR$(12):GOSUB 3150:GOTO 3120 
FOR R=1. TO VAL(N$(1,4)):LPRINT:NEXT R 
NEXT Z 
LPRINT "—============oo-- A 


/ 


RETURN 
FOR S=1 TO 20 
IF N$(S,2)="" THEN GOTO 3180 
LPRINT TAB(VAL(N$(S, 3)));MS(VAL(N$(S,2))); 
NEXT S:LPRINT "======-====-=-=-- TE SU E o O OS DE A E dede a EE 


3410 


REM ARK FIN DE LA SESION xxx 
REM 

CLS 

PRINT "TERMINAR LA SESION" 
A A A 
PRINT:PRINT:PRINT 

PRINT "ESTA SEGURO (S/N)"” 

LET A$=INKEY$ 

TF A$="" THEN GOTO 3280 

IF A$="S" OR A$="s" THEN GOTO 3330 Ñ 
IF A$="N" OR A$="n" THEN RETURN 


GOTO 3280 
CLS : 
PRINT "SESION TERMINADA. ADIOS" 


FOR I=1 TO 10 

PRINT 
NEXT I 
END 
REM , 
REM ASOCIA III 
REM * DEFINICION DE IMPRESION x* 


3420/REM A e 


3430 
3440 
3450 
3480 
3470 

3480 
3490 
3500 
3510 
3520 

3530 
3540 

3550 


3560. 


3570 
-3580 
3590 


3600 


REM 
CLS 
PRINT “DEFINICION DE LA IMPRESION” 
PRINT "=========coo:im==o=======" 
LOCATE 5,1 ) 
PRINT. "(- CUANTOS. CAMPOS QUIERE QUE IMPRIMA 2” 
LOCATE 12,1 
LINE INPUT "==> "5 AS 
IF VAL(A$)=0 THEN RETURN 
IET N=VALC(AS) 
LOCATE 5,1 
PRINT "( QUE CAMPOS bee QUE IMPRIMA 2 
LOCATE 9,1 
PRINT "CAMPOS A IMPRIMIR = ” 
FOR Z=1 TO N 
LOCATE 12,1 
¡PRINT SPACES(10) 
_LOCATE 12,1 
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5520 FOR Z=1 TO 6 


5530 LOCATE Y,X . 

5540 PRINT A$; 

:5550 IF INKEY$<>"" THEN GOTO 5650 
5560 FOR K=1 TO 100 

5570 NEXT K 

5580 .LOCATE Y,X 

5590 PRINT SPACE$(L); 

5600 IF. INKEY$<>"" THEN GOTO 5650 
5610 FOR K=1 TO 100 

5620 NEXT K 


5630 NEXT Z 
5640 GOTO 5510 
5650 LOCATE Y,X 
e 5660 PRINT SPACE$(L); 
5670 RETURN 
5680 REM 
5690 REM aaaMRSSOoOlO lalalala lalo lajobIoOlOlIOIOIOIOOKKk 
5700 REM * SUBRUTINA DE BORRADO REAL DE FICHAS x 
5710 REM AdSRSSOoalooalalalalalolalololalalalllalokaokokok 
5720 REM 
5730 LET N=0 
5740 FOR Z=1 TO TT 
5750 IF LEFT$(F$(Z),1)<>CHR$(253) THEN GOTO 5810 
5760 LET F$(Z)="" 
5770 LET N=N+1 
5780 FOR X=Z TO TT-1 
5790 LET FS(X)=F$(X+1) 
5800 NEXT X 
5810 NEXT Z 
5820 FOR Z=TT=N+1 TO TT 
5830 LET FS(Z2)="" 
5840 NEXT Z ¡ 
5850 LET TT=TT-N | 
5360 RETURN 
5870 PRINT "ERROR" 
5880 PRINT "===—=====- »X 
5890 PRINT 
: 5900 PRINT "Lo siento pero no he encontrado el campo No. ";NC 
5910 PRINT f : 
5920 PRINT "Estas seguro de que las fichas de este fichero tienen”“;NC; "campos?" 
5930 X=1:Y=20:GOSUB 5440 
5940 CLS 
! 5950 RETURN 

5960 REM 
5970 REM AAA OOOO 

ta 5980 REM * SUBRUTINA DE CREACION DE MENUS x*x 
5990 REM ooo alado oielalololcioK 
6000. REM ; 
6010 CLS 
5020 LET X=INT((40-LEN(A$S))/2) 
68030, LOCATE 1,X 
6040 PRINT A$ 
6050 LOCATE 2,X 
8060 FOR Z=1 TO LEN(A$) 
6070 PRINT “-"; 
6080 NEXT Z 
6090 PRINT:PRINT 
68100 LET X=0 
6110 FOR Z=1 TO N 
6120 IF X<LEN(A$(Z)) THEN LET X=LEN(AS(Z)) 
8130 NEXT Z : 
6140 LET X=INT((40-X)/2) 
6150 FOR Z=1 TO N 
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8160 LOCATE 2*Z+3,X 

6170 PRINT Z;"-";A$(Z) 

6180 NEXT Z 

6190 LET X=1:LET Y=21 

6200 GOSUB 4980 

6210 CLS 

6220 RETURN 

6230 REM 

6240 REM Sddbdaladdaajaloledlalaioololololok 

6250 REM * SUBRUTINA DE BUSQUEDA * 

6260 REM ARMS NOOO lalola do 

6270 REM 

6280 CLS 

6290 PRINT "BUSCAND O” 

ESODFPRINT === ss ll : > 
6310 PRINT E 

6320 IF SW=0 THEN PRINT “Buscando las fichas desde la “;N1;" hasta la ";N2 

6330 IF SW=1 THEN PRINT "Buscando las fichas que tengan ";A$;" en el campo ";NC , 
6340 IF SW=2 THEN PRINT "Buscando fichas borradas" 

6350 PRINT 

6360 PRINT "ESPERA UN MOMENTO” 

68370 FOR Z=1 TO 1000 

6380 NEXT Z 

6390 CLS 

6400 ON SW+1 GOSUB 6490,8580,6'770 

6410 CLS 

6420 PRINT "OPERACION TERMINADA" 

USOS PR INT Me === 22332 2 SE 

6440 PRINT 

6450 PRINT "No se han encontrado mas fichas." 

6460 LET X=1:LET Y=20 

6470 GOSUB 5440 

6480 RETURN 

6490 REM 

6500 REM x*** BUSQUEDA POR No. DE FICHA *x**k 

6510 REM 

6520 FOR R=N1 TO N2 

6530 LET NF=R 

6540 GOSUB 8290 

6550 CLS 

6560 NEXT R 

8570 RETURN 

6580 REM 

6590 REM *x4x* BUSQUEDA POR CAMPO Y VALOR ok 

6600 REM A 

6610 IF N(1)<>0 THEN GOTO 6690 

6620 PRINT "E RR OR" - — 
6630 PRINT "-==--=-=--= pi 

6640 PRINT 

6650 PRINT "Lo siento. El campo ";NC;” no existe." 
6660 GOSUB 5440 

6670. CLS . 

6680 RETURN 

6690 LET J$=A$:FOR Z=1 TO TT:LET CD=0:LET CR=0:LET Z1=0 
6700 FOR X=1 TO LEN(F3(Z)):1F MID$(F3(Z),X, 1)=CHR$(254) THEN LET CD=CD+1:1F C 
D=NC THEN LET Z1i=X+1:LET X=LEN(F$(Z)) 

6710 NEXT X:FOR X=Z1 TO LEN(F3(Z)): IF MID$(J$,X-214+1,1)=MID$(F$(Z),X,1) THEN 
LET CR=CR+1:1F CR=LEN(J$) THEN LET X=LEN(F$(2)) 

6720 NEXT X . 

6730 IF CR=LEN(J$) TBEN LET VV=Z:LET NF=Z:GOSUB 8290:1.ET Z=VYY 

6740 NEXT Z 

6750 RETURN 

6760 CL3 

6770 REM 
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TRUCOS Y RUTINAS BASICAS | 


8780 REM. Ax BUSQUEDA DE FICHAS BORRADAS xx 
6790 REM 
6800 FOR Z=1 TO TT 
6810 1F LEFT$(F$(Z),1)<>CHR$(253) THEN GOTO 6870 
6820 LET F$(Z2)=RIGHTS(FS(Z), LEN(F$(2))-1) 
6830 LET NF=Z 
6840 GOSUB 8290 
6850 CLS:LET Z=NF 
6860 LET F$(Z)=CBR$(253)+F$(Z) 
6870 NEXT Z 
6880 RETURN 
6890 REM 
6900 REM dXSSSNSSSA ojSlolooalo jolla 
6910 REM * ORDENACION ALFANUMERICA * 
6920 REM aaa aaloalololojo lalola 
6930 REM 
6940 CLS 
6950 PRINT "ORDENAR FICHERO" 
5980 “PRINT "Sic=s===e crisi dsicctso" 
6970 PRINT 
6980 PRINT “Ordenando fichero por el campo No. "¿NC 
6990 PRINT y 
7000 PRINT "ESPERA UN MOMENTO” 
7010 IF N(1)>=NC THEN GOTO 7120 
. 7020 CLS 
7030 PRINT "ERROR" 
7040 PRINT "=-=-===-==-=- 5 
7050 PRINT 
7060 PRINT "Lo siento pers no he encontrado el campo No. "¿NC 
7070 PRINT 
7080-PRINT "Estas seguro de que las fichas de este fichero tienen";NC;'" "campos?" 
7090 X=1:Y=20:GOSUB 5440 
7100 CLS 
7110 RETURN 1 
7120 FOR:Z=1 TO TT:LET CC=0:LET CD=0 
7130 FOR X=1 TO Z:FOR R=1 TO LEN(F3(2)):1F MIDS(FS(Z), R, 1)=CBR$(254) THEN LET 
CC=C0C+1:1F CC=NC. THEN LET Z1=R+1:LET R=LEN(F$(Z)) 1 
7140 NEXT R:LET CC=0:FOR R=1 TO LEN(F$(X)):]IF MIDS(F$(X),R, 1)=CHR$(254) THEN 
LET CC=CC+1: IF CC=NC THEN LET Z2=R+1:LET R=LEN(F3$(X)) 
7150 NEXT R:IF MIDS(F3(Z), pedo ago Z2) THEN LET AS=F$(Z):LET FS$(Z)=F$(X 
J:¡LET FS(X)=4$ 
7160 NEXT X 
7170 NEXT Z > 
7180 CLS:PRINT "OPERACION TERMINADA” 
7190 PRINT "=s<ocrrciccciicicirococoocceeose=====" % 
7200 PRINT 
e 7210 PRINT “El fichero esta ordenado gOR | el campo No. ";NC 
7220 X=1:Y=20:GOSUB 5440 
7230 CLS 
7240 RETURN 
- 7250 REM z 
72600 REM MSM MOMO lolo ok 
2270 REM * DEFINICION DE UN FICHERO NUEVO * 
7280 REM dodo alolalalaja lolo 
7290 REM 
17300 CLS 
7310 LET A$="CREACION DE-UN FICHERO” 
7320 LET N=2 
7330 LET A$(1)="UTILIZAR UNO QUE ESTE CREADO” 
7340 LET A$(2)="CREAR UNO NUEVO" 
-17350GOSUB 5960 
7360 IF A$="1" THEN GOTO 7640 
7370. PRINT " CREACION DE UN NUEVO SUBO E 
7380 PRINT "=== nto no==- 
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7390 


7400 -PRINT " Por favor, responda a las preguntas quele van a 
cion.” 


7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 
7580 
7570 
7580 
7590 
7600 
7610 
7620 
7630 
7640 
7650 
'7660 
7670 
7680 
7690 
7700 
T7IO 
del 
7720 
7730 
7740 
7750 


7780 
TTPO 
7780 
7790 
7800 
7810 
7820 
7830 
7840 
7850 
7860 
7870 
7880 
7890 
7900 
7910 
7920 
7930 
7940 
7950 
7960 
7970 
7980 
7990 


PRINT: PRINT 


DAN MS o o 
LOCATE 9,1 
INPUT “Cuartos campos tendra cada ficha?";N(1) 
IF N(1)<0 OE N(1)>20 THEN GOTO 7420 
DIM M$(N(1)+1) 
PRINT 
FOR Z=1 TO N(1) 
LOCATE 16,1 
PRINT ” 
LOCATE 18,1 
PRINT " 
LOCATE 16,1 
PRINT “Cuantos caracteres ocupa el campo “;Z 
INPUT N(2+1) 
LOCATE 18,1 
PRINT "Como se llama este campo'- 
INPUT M$(Z) 
NEXT Z 
CLS 
PRINT "OPERACION TERINADA” 
LET X=1:LET Y=20 
GOSUB 5440 
RETURN 
REM 
REM xxx UTILIZACION DE UN FICHERO YA CREADO x*xkx 
REM / 
CLS 
PRINT " CREACION DE UN FICHERO”. 
PRI =ceouss sencacas Jnsasaas al 
PRINT 


aparecer a continua 


PRINT * Teclea el nombre del fichero que ya tiene una estructura definida y 


cual laquieres copiar.” 
PRINT:PRINT:PRINT 
INPUT "NOMBRE = “;N$ 
PRINT:PRINT 


PRINT " Asegurate de que esta colocada la cintao disco que contiene dicho f 
ichero" 


LET X=1:LET Y=20 
GOSUB 5440 
CLS y 
PRINT "LEYENDO ... “;N$ 
OPEN.N$ FOR INPUT 43 +41 
INPUT$1,T 
DIM M$(T+1) 
FOR Z=1 TO T 
INPUT$1,N(Z+1) 
NEXT Z 
LET N(1)=T 
FOR Z=1 TO T 
INPUT+1,M$(Z) 
NEXT Z 
CLOSE+ 1: CLS 
PRINT "CONFIGURACION LEIDA" 
PRINT: PRINT 
PRINT "Cada ficha tiene ";T;" campos” 
PRINT 
FOR Z=1 TO T 
PRINT "el campo ";2;" se llama ";M$(Z) 
NEXT Z 
LET X=1:LET Y=21 
GOSUB 5440 


. 


e 
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AROUSA RUS SE RONIEOSS: AS 
aa 53 | DANS 
SOTELO ES INSANSES 


ore IEiES 


EL TALLER DEL HARDWARE WA 


REALIZACION PRACTICA 
DEL GRABADOS DE EPROMS 


A Circuito completo de grabador 


TILIZANDO los bloques des- Al poseer suficiente corriente de 5 vol- 
'- Critos para realizar las fun- tios se ha suprimido la generación de este ni- 

ciones de lectura y graba- vel de tensión. La tensión de grabación se ob- 

ción de EPROMS con la in- tiene a partir de los 12 voltios mediante un os- 
 terfaz de puertos del tipo  cilador, basado en el LM555 y un multiplica- 

empleado en la tarjeta de dor de tensión. El control de la tensión de gra- 

ampliación de puertos de  bación se obtiene mediante un regulador de 

entrada/salida el esquema tipo LM317 y las resistencias de programación 
adjunto describe una aplicación para el IBM controladas por bits del puerto de control y 
PC. transistores. 


BUS DATOS A «LOCALO 


to 
o 


O 


Fig 1. Circuito completo de grabador de EPROMS 
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EL TALLER DEL HARDWARE MEN 


Para una utilización cómoda de la tarje- 
ta pueden colocarse los componentes de 
acuerdo con el esquema adjunto, El zócalo de 
la memoria a grabar podría sacarse al exterior 
mediante cable plano, con objeto de poder tra- 
bajar con la máquina cerrada, pues con el zó- 
calo en la tarjeta hay que mantener la tapa qui- 
tada para acceder al zócalo. 


DATOS DIREC 


CONTROL 


alot 


0000 


MODULO 
PERSONALIZACION — TRANSISTORES 


CONECTOR AL BUS 


Fig 2. Ubicación de componentes 


E Programa de grabación 


El circuito por si solo no es capaz de 
realizar las funciones, hay que dotarle de in- 
teligencia. Todos los controles son programa- 
bles a través de las señales del puerto de con- 
trol. 


El programa adjunto muestra un ejem- 
plo de activación de las funciones de lectura, 
grabación, acceso a disco, presentación en 
pantalla y verificación. Puede ampliarse para 
realizar otras funciones basadas en éstas, para 
copiar, editar o listar en impresora el conteni- 
do de una memoria. 


El programa lleva numerosos comenta- 
rios sobre las acciones ejecutadas por cada 
sentencia o grupo de sentencias. Conviene 
detallar algunas de las más importantes para 
poder ser modificadas y adaptadas a cada or- 
denador en particular, Conviene recalcar que 
es un programa de ejemplo de las posibilida- 
des de la tarjeta de grabación. Es responsabi- 
lidad de cada uno hacer que ejecute correc- 
tamente las funciones completas. 


El programa está dividido en: 


— Definición de constantes, variables y 
direcciones de puertos. 
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— Menú principal. 

— Menú de selección de tipo de 
EPROM. 

— Menú de selección de función a eje- 
cutar. 

— Rutinas de funciones particulares. 


Las constantes empleadas en el control 
de puerto de salida se encuentran definidas al 
principio, junto con un comentario explicativo. 
Los puertos se encuentran localizados en la 
zona del adaptador de juegos: X'200'-X'20F", 
Para los demás ordenadores deberán usarse 
las direcciones correspondientes a SELRO, 
SELWO y SELW1. 

Los menús son muy simples y fáciles de 
adaptar a cualquier ordenador, pues no se uti- 
lizan sentencias LOCATE, que le habrían dado 
una presentación más atractiva. Son simples 
PRINT y un número de indicación de la opción. 
Hay una simple comparación de que la opción 
seleccionada es válida, para controlar las res- 
puestas. Si se da una opción no válida, un cor- 
to pitido indica que se ha de repetir. 

El menú de selección de funciones in- 
dica las que están disponibles en el ejemplo. 
Para ampliar las posibilidades es suficiente 
con añadir la función deseada en una zona li- 
bre de identificadores y referenciarla en la 
sentencia GOSUB que realiza la distribución. 
Deberá también modificarse el número por el 
que se determina que una función es admisi- 
ble, en la sentencia con IF. 

Todas las rutinas de interfaz con la me- 
moria se han realizado en BASIC excepto la de 
temporización para la grabación. La rutina se 
ha escrito en lenguaje de máquina y tiene la 
siguiente secuencia de instrucciones: 


52 PUSH DX GUARDA LOS REGISTROS A EMPLEAR 
50 PUSH AX 

51 PUSH CX 

BA 01 02 MOV DX,X'201' DIRECCIONA PUERTO 

B9 B0 61 MOV CX,X'600B' BUCLE DE APROX 50 MILISEC 
B0 2B MOV AL,X'29' ACTIVA PULSO PGM 

EE OUT DX,AL 

E2 FE L1 LOOP Ll DECREMENTA CX HASTA CX=0 
BO 3B MOV AL,X'39' DESACTIVA PGM 

EE OUT DX,AL 

59 POP CX RESTAURA REGISTROS 

58 POP AX 

SA POP DX 

CB RET VUELVE AL PROGRAMA 


El programa se carga en la zona de me- 
moria del BASIC mediante POKEs en el espa- 
cio de una variable del tipo vector de enteros. 
La constante que se carga en CX fija la dura- 
ción del período de grabación, junto con la ve- 


locidad del reloj de la máquina. Es por tanto 
necesario tener en cuenta el modelo exacto de 
PC y cambiar esta constante para que el pul- 
so sea de 50 milisegundos, lo más exactos que 
se pueda. 

La ejecución del programa puede re- 
sultar un poco lenta en general, pero como es 
una necesidad poco frecuente el grabar una 
EPROM no parece importante. 

Si se desea mayores prestaciones pue- 
de hacerse el programa en lenguaje de má- 
quina completamente o utilizarse un lenguaje 
compilable. 


RRA A AAA AAA AAA 


LO REM***+** 
20 REM PROGRAMA DE GRABACION DE EPROMS 

FO REM *... «. + PTE AAA E 

40 REM UTILIZA LA TARJETA DE GRABACION UNIVER- 
SAL 

50 REM EN EL IBM P 

UN AA 
61 OPTION BASE 0 

62 DEFINT A-Z 

63 DIM RUTINA(40) 

64 DIM MEMORIA(16384) 

65 REM DESCRIPCION DEL PUERTO DE CONTROL: 

66 REM BIT 7 = -OEB, ACTIVA LAS SALIDAS DEL REGIS- 
TRO DATOS 

67 REM BIT 6 = Vpp0, ACTIVA TENSION DE 0 VOLTIOS 
68 REM BIT 5 = Vpp21, ACTIVA LA TENSION DE GRA- 
BACION 

69 REM BIT 4 = -PGM, PULSOS LOGICOS DE GRABA- 
CION 

70 REM BIT 3 = -OE, PERMITE LA LECTURA DE LA 
EPROM 

71 REM BIT 2 = -CE, SELECCION DE LA EPROM 

72 REM BIT 1 = BORRADO DE CONTADOR DE DIREC- 
CION 

73 REM BIT 0 = RELOJ, AVANZA CONTADOR DE DIREC- 
CION 

74 REM*** 


LEAR AAA 


75 REPOSO=86H9C: REM NIVELES DE REPOSO AL 
ARRANCAR 

76 BORRAR=8H2: REM PULSO DE BORRADO DE CON- 
TADORES 

77 CONTAR=€Hl: REM PULSO DE AVANZAR DIREC- 
CION, INVERTIDO 

78 PGM=8H10: REM PULSO DE GRABACION, NIVEL LO- 
GICO 

79 ELECTURA=éH91:REM ESTADO DE LECTURA DE 
EPROM 

80 EVERIFICA=86HB1:REM ESTADO DE VERIFICACION 
DE EPROM 

81 VPP21=8H20: REM NIVEL DE GRABACION ACTIVA- 
DO 

82 VPP0=8:H40: REM NIVEL 0 DE PROGRAMACION 

83 INCREMENTAL=8%H90: REM LECTURA CON PULSO 
DE INCREMENTO 

84 INCREMENTACG=8.H38: REM GRABACION CON PUL- 
SO DE INCREMENTO 

85 EGRABACION=8H39: REM ESTADO DE GRABACION 
DE EPROM 

90 REM* ******* DEFINICION DE ESCALARES 


* DEFINICION DE ESTADOS DE CONTROL 
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100 OPCION=1: NMAX=2047: TIPOEPROM=2716 

106 REM * ******** "DEFINICION DE PUERTOS 

107 PDATOS=8H201: REM DATOS 

108 PCONTROL=8H203: REM BYTE DE CONTROL 

109 REM * ** *** NUMERO DE BYTES DE CADA EPROM 
110 DATA 2047,4095,8191,16383,32767 

111 FOR I=1 TO 5: READ Q(D : NEXT 1 

112 DATA 2716,2732,2764,27128,27258 

113 FOR I=1 TO 5: READ TIPO(D) : NEXT 1 

114 DATA 8:H552,6H50,8H51,£HBA,8£H01, 
£H02,86HB9,8HB0 

115 DATA €:H61,8HB0,6H2B,8HEE,8HE2, 
«HFE,£HBO0,8H3B 

116 DATA €:HEE,8/H59,6H58,8.H5A,£HCB 

117 TIEMPOS0=VARPTR(RUTINA(0)): REM RUTINA DE 
50 MILISEGS 4 
118 FOR I=0 TO 20 y 
119 READ VA s 

120 POKE TIEMPO50+1,VA 

121 NEXT 1 

125 GOSUB 3000: REM PONE TARJETA EN REPOSO 

128 KEY OFF: TEPROM=1 

129 CLS: REM * ******* MENU PRINCIPAL 

130 TIPOEPROM=TIPO(TEPROM) 

131 PRINT * PROGRAMA DE GRABACION DE EPROMS " 
140 PRINT 

142 PRINT * VERIFIQUE QUE EL MODULO DE PERSONA- 
LIZACION" 

143 PRINT * COINCIDE CON EL TIPO DE EPROM A UTILI- 
ZAR" 

147 PRINT 

148 PRINT " TIPO DE EPROM SELECCIONADA="/TIPOE- 
PROM 

149 PRINT 

150 PRINT * SELECCIONE OPCION:* 

160 PRINT 

170 PRINT * 1.-SELECCIONAR TIPO DE EPROM" 

190 PRINT 

200 PRINT * 2.-SELECCIONAR FUNCION" 

210 PRINT 

220 PRINT " 3.-TERMINAR" 

260 PRINT 

210 INPUT "OPCION="¡OPCION 

280 IF OPCION<1 OR OPCION>3 THEN BEEP: GOTO 
129 

290 ON OPCION GOSUB 1000,2000,3000 

295 IF OPCION=3 THEN END 

300 GOTO 129 

990 REM * ** * MENU DE TIPOS DE EPROM **** 

1000 CLS: REM SELECCION DE TIPO DE EPROM 

1010 PRINT * MENU DE SELECCION DE TIPO DE EPROM" 
1020 PRINT 

1030 PRINT *1.-2716 ( DE 5 VOLTIOS ) 

1040 PRINT 

1050 PRINT *2.-2732* 

1060 PRINT 

1070 PRINT *3.-2764" 

1080 PRINT 

1090 PRINT '4.-27128" 

1100 PRINT 

1110 PRINT *5.-27256" 

1140 PRINT 

1150 INPUT "TIPO DE EPROM=",TEPROM 

0 IF TEPROM<1 OR TEPROM>5 THEN BEEP:GOTO 
1001 

1170 REM ESTABLECE PARAMETROS DE GRABACION 
1200 NMAX=0Q(TEPROM) 

1500 RETURN 


EL TALLER DEL HARDWARE HINA 


*..... 


1990 REM * * * * MENU DE FUNCIONES 
2000 CLS: REM FUNCIONES CON LA EPROM 

2010 PRINT “SELECCION DE FUNCIONES" 

2020 PRINT 

2030 PRINT *1.-LEER EPROM A MEMORIA" 

2040 PRINT 

2050 PRINT “2.-GRABAR CONTENIDO DE MEMORIA A 
EPROM" 

2060 PRINT 

2070 PRINT *3.-SALVAR CONTENIDO DE MEMORIA EN 
DISCO" 

2080 PRINT 

2090 PRINT "4.-LEER DE DISCO A MEMORIA" 

2100 PRINT 

2110 PRINT “5.- VERIFICAR QUE LA EPROM ESTA 
BORRADA" 

2120 PRINT 

2130 PRINT “6.-COMPARAR EPROM CON MEMORIA" 
2140 PRINT 

2141 PRINT *7.-PRESENTAR LISTADO DE EPROM" 

2142 PRINT 

2145 PRINT "8.-PRESENTAR LISTADO DE MEMORIA" 
2146 PRINT 

2150 PRINT "9.- VOLVER AL MENU PRINCIPAL” 

2160 PRINT 

2170 INPUT "FUNCION="FUNCION 

2180 IP FUNCION<1 OR FUNCION>9 THEN BEEP: 
GOTO 2000 

2190 ON FUNCION 
4000,5000,6000,7000,8000,9000, 
10000,11000,12000 

2200 IF FUNCION=9 THEN RETURN ELSE GOTO 2000 
2990 REM * * ** FUNCION DE PUESTA EN REPOSO **** 
3000 REM DEJA LA TARJETA EN REPOSO 

3010 OUT PCONTROL,REPOSO 

3100 RETURN 

3990 REM * * * * FUNCION DE LECTURA DE EPROM *** 


GOSUB 


4000 REM LEE EPROM A MEMORIA 

4002 PRINT "ATENCION, PONGA EL CONMUTADOR EN 
POSICION LEER" 

4004 GOSUB 15000 

4006 PRINT 

4008 PRINT "LEYENDO EPROM A MEMORIA" 

4009 ESTADO=ELECTURA OR BORRAR 

4010 OUT PCONTROL,ESTADO: REM PONE CONTADOR 
A CERO 

4011 ESTADO=ESTADO XOR BORRAR 

4015.0UT PCONTROL,ESTADO: REM PONE MODO LEC- 
TURA 

4020 FOR I=0 TO NMAX 

4040 MEMORIA(D=INP(PDATO) 

4045 OUT PCONTROL, INCREMENTAL 

4046 OUT PCONTROL,ELECTURA 

4050 NEXT 1 

4850 GOSUB 15000 

4900 RETURN 
4990 REM *** 


* rr 


5000 REM GRABA EPROM DESDE MEMORIA 

5002 PRINT "ATENCION, PONGA EL CONMUTADOR EN 
POSICION GRABAR" 

5004 GOSUB 15000 

5006 PRINT 

5008 PRINT "GRABANDO EPROM DESDE MEMORIA" 
5009 ESTADO=EGRABACION OR BORRAR 

5010 OUT PCONTROL,ESTADO: REM PONE CONTADOR 
A CERO 


* FUNCION DE GRABACION DE EPROM 
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5011 ESTADO=ESTADO XOR BORRAR 

5015 OUT PCONTROL, ESTADO: REM PONE MODO GRA- 
BACION 

5020 FOR 1=0 TO NMAX 

5040 OUT DATO,MEMORIA() 

5042 CALL TIEMPOB0 

5045 OUT PCONTROL, INCREMENTAG 

5047 OUT PCONTROL, EGRABACION 

5050 NEXT 1 

5990 REM * * * * FUNCION DE GRABACION A DISCO * * 


6000 REM GRABA DATOS DE MEMORIA A DISCO 
6002 INPUT "NOMBRE DEL FICHERO CON DA- 
TOS'¡NOMP2+f 

6004 OPEN NOMF2+ FOR OUTPUT AS $2 

6006 PRINT 

6008 PRINT "GRABANDO DATOS EN DISCO" 

6020 FOR I=0 TO NMAX 

6040 PRINT ++2,MEMORIA(D 

6050 NEXT 1 

6100 CLOSE +2 

6850 GOSUB 15000 

6900 RETURN 

6990 REM * * * * FUNCION DE LEER DE DISCO ** ** 
7000 REM LEER DATOS DE DISCO A MEMORIA 

7002 INPUT "NOMBRE DEL FICHERO CON DA- 
TOS'¡NOMPF1+ 

7004 OPEN NOMP1% FOR INPUT AS ¿1 

7006 PRINT 

7008 PRINT "LEYENDO DATOS DE DISCO" 

7020 FOR I=0 TO NMAX 

7040 INPUT ++1,MEMORIA(D) 

7050 NEXT 1 

7100 CLOSE úl 

7850 GOSUB 15000 

7900 RETURN . 

7990 REM * ** * FUNCION DE VERIFICACION DE EPROM 


.. rx 


8000 REM VERIFICA QUE LA EPROM ESTA BORRADA 
8006 PRINT 

8009 ESTADO=ELECTURA OR BORRAR 

8010 OUT PCONTROL,ESTADO: REM PONE CONTADOR 
A CERO 

8011 ESTADO=ESTADO XOR BORRAR 

8015 OUT PCONTROL,ESTADO: REM PONE MODO LEC- 
TURA 

8017 PRINT "VERIFICANDO EPROM BORRADA" 

8020 FOR I=0 TO NMAX 

8040 XA=INP(PDATO) 

8045 IF XA=255 THEN 8065 

8060 PRINT *POSICION="¡HEX$(D);"” EPROM="¡HEX$(XA) 
8065 OUT PCONTROL,INCREMENTAL 

8067 OUT PCONTROL,ELECTURA 

8070 NEXT 1 

8850 GOSUB 15000 

8900 RETURN 

8990 REM * * * * FUNCION DE COMPARACION DE 
EPROM Y RAM**** 

9000 REM COMPARA MEMORIA CON EPROM 

9009 ESTADO=ELECTURA OR BORRAR 

9010 OUT PCONTROL,ESTADO: REM PONE CONTADOR 
A CERO 

9011 ESTADO=ESTADO XOR BORRAR 

9015 OUT PCONTROL, ESTADO: REM PONE MODO LEC- 
TURA 

9017 PRINT "COMPARANDO MEMORIA CON EPROM" 
9020 FOR I=0 TO NMAX ; 

9040 XA=INP(PDATO) 

9050 IF XA=MEMORIA(D) THEN 9070 


% 


9060 PRINT "POSICION="¡HEX$(D;" EPROM="¡HEX$(XA); 
9065 PRINT * MEMORIA="¡MEMORIA(D 

9070 OUT PCONTROL, INCREMENTAL 

9080 OUT PCONTROL,ELECTURA 

9100 NEXT 1 

9200 GOSUB 15000 
9300 RETURN 
9990 REM * * * * 
EPROM **** 
10000 REM LEE EPROM A PANTALLA 

10010 OUT PCONTROL,ELECTURA OR BORRAR: REM 
PONE CONTADOR A CERO 

10018 OUT PCONTROL,ELECTURA: REM PONE MODO 
LECTURA 

10017 PRINT "LISTADO DEL CONTENIDO DE LA EPROM" 
10020 FOR I=0 TO NMAX 

10040 XA=INP(PDATO) 

10050 PRINT HEX$(XA);" *; 

10060 OUT PCONTROL INCREMENTAL 

10070 CUT PCONTROL,ELECTURA 

10200 NEXT 1 

10490 GOSUB 15000 

10500 RETURN 

10990 REM * *** FUNCION DE PRESENTACION DE ME- 
MORIA **** 

11000 REM PRESENTA MEMORIA A PANTALLA 

11010 PRINT "LISTADO DEL CONTENIDO DE LA MEMO- 
RIA" 

11020 FOR I=0 TO NMAX 

11050 PRINT HEX$(MEMORIA(D);" *; 

11200 NEXT 1 

11490 GOSUB 15000 

11500 RETURN 

12000 RETURN 


FUNCION DE PRESENTACION DE 


15000 REM * ****** PETICION DE PULSAR TECLA 
15010 PRINT 

15020 INPUT "PULSE UNA TECLA PARA CONTI- 
NUAR"X$ 


15100 RETURN 


Las EPROM más recientes permiten ser 
grabadas mediante un ciclo un poco más com- 
plejo pero que reduce en gran medida el tiem- 
po de grabación. El método denominado “gra- 
bación inteligente" consiste en alimentar con 
tensión ligeramente superior y verifica des- 
pués de cada pulso de grabación el estado en 
el que queda la posición. Si está ya grabada, 
se le dan unos pocos pulsos más y se pasa a la 
celda siguiente, si no lo está se le da un pulso 
más y se repite el ciclo hasta un número de- 
terminado de veces. Requiere una circuitería 
un poco más compleja, pero reduce el tiempo 
de programación a una quinta parte, por lo 
que es el método empleado en los programa- 
dores industriales. 

Los EPROMS 27128, 27256 y 27512 utili- 
zan tensión de grabación de 12,5v. Es necesa- 
rio ajustar R1 y R2 para estas tensiones. 


E Borrador de EPROMS 


Para el borrado de las EPROM es nece- 
saria una fuente de luz ultravioleta de longi- 
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tud de onda inferior a 5000 A. La construcción 
es sencilla a partir de un pequeño tubo fluo- 
rescente de los utilizados como germicida y al 
cual no se le ha pintado la capa interior para 
que genere luz blanca como efecto secunda- 
rio. Pueden encontrarse de 6, 8, 12 y 24 vatios. 
Cualquiera de ellos puede servir para esta 
aplicación. 

El circuito para su funcionamiento es el 
mismo que para un tubo fluorescente corrien- 
te: necesitamos una reactancia y un cebador. 
Para un funcionamiento cómodo y seguro se 
necesita también una caja, un conmutador y 
es recomendable un temporizador para regu- 
lar el tiempo de borrado. El tiempo normal 
para borrado de las EPROMS oscila entre 15 y 
30 minutos, colocadas a una distancia de 10 a 
20 milímetros del tubo. 


CEBADOR 


TUBO DE LUZ 
ULTRAVIOLETA 


Fig 3. Circuito eléctrico del borrador de EPROMs. 


Es necesario recalcar que la luz ultra- 
violeta que emite el tubo no es visible pero 
puede dañar muy seriamente a la vista. La luz 
violeta, que sí se ve, es un indicio de que hay 
emisión ultravioleta también. La caja debería 
disponer de un microconmutador conectado a 
la tapa para impedir que pudiera funcionar sin 
estar cerrada completamente. 

Las memorias a borrar deberán colo- 
carse a una distancia de un centímetro aproxi- 
madamente, con la ventana próxima al tubo. 

El esquema de la figura indica una po- 
sible solución práctica de borrador de 
EPROMS. 


SOPORTE 
DE 
EPROMS 


Fig 4. Caja para borrador de EPROMs. 


APRENDER CON EL ORDENADOR HA 


MATEMATICAS: Vectores 


OS vectores son muy utiliza- 
dos para representar mag- 
nitudes físicas. Ejemplos 
muy claros de ello los tene- 
mos en la velocidad y la 
fuerza. 
Para definir la veloci- 
dad de un automóvil, hay 
que dar su valor numérico, la dirección que 
lleva y el sentido, ya que el coche no tardará 
lo mismo si va por una carretera o por otra, ni 
si va más rápido o más lento. 

Lo mismo nos ocurre con la fuerza, ya 
que el objeto empujado sé moverá más o me- 
nos segú:, desde dónde lo empujemos y hacia 
dónde. Es importante que aprendas a manejar 
los vectores y a operar con ellos. 

Para empezar te presentamos un pro- 
grama que realiza operaciones básicas; tú se- 
leccionas en el menú principal la que deseas 
hacer en cada ocasión e introduces los datos 
que te pida el ordenador. 

1. MODULO. Es la longitud del vector 
(Fig. 1). 


Fig. 1 


2. SUMA DE VECTORES. Es el vector 
que tiene como origen el origen del primer 
vector y como extremo el extremo del segun- 
do cuando están puestos a continuación (Figu- 
ra 2). 
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3. DIFERENCIA DE VECTORES. Se 
suma al primer vector el opuesto del segundo 
(Fig. 3). 


ASA TES ya 
5 a 
áa-b GÍA 
> o 
Fig. 3 


4. PRODUCTO POR UN ESCALAR. Es 
el vector que se obtiene al poner, tantas ve- 
ces como marque el escalar, el vector sobre 
una recta (Fig. 4). 


Fig. 4 


5. PRODUCTO ESCALAR. El producto 
escalar de dos vectores es el resultado de 
multiplicar el módulo de ambos por el coseno 
del ángulo que forman. 

6. VECTORES EQUIPOLENTES. Dos 
vectores son equipolentes si el cuadrilátero 
obtenido de unir sus extremos es un paralelo- 
gramo (Fig. 5). 


Fig. 5 


Cada vez que realices una de las ope- 
raciones puedes volver al menú principal con 
sólo pulsar una tecla. 


APRENDER CON EL ORDENADOR 


LO REM RIOR OROIOOIOIOIO GIO OOOO 

20 REM *Xk CALCULOS VECTORIALES *x 

SO REM AROOIOOIOIOOIOIOIOOOOIOIOIGOOIOION 
20 CLS n 

SO REM OOOO OOO OOOO 

60 REM kk MENU DE OPCIONES X*k 

TO REM OROROROIOROOROIOIOGIOIOOIOOOO 


30 PRINT * 1.- MODULO DE UN VECTOR" 
90 PRINT 
100 PRINT " 2.- SUMA DE VECTORES” 
110 PRINT 
120 PRINT * 3.- DIFERENCIA DE DOS VECTORES" 
130 PRINT 
140 FRINT * 4.- FRODUCTO POR UN ESCALAR" 
150 PRINT 
160 ERINT * S.- PRODUCTO: ESCALAR” 
170 PRINT 
180 PRINT " b.- EGUIPOLENCIA"” 
190 PRINT 
A 200 FPRINT 


210 INPUT "¿QUE OPCION DESEAS?7":R 
BRO REM IGOIOIGIOIOIOIGORIOIOOIOIOIOIOIOIOJOIOOIOIOlOPIOOOL 
230 REM-X*k BIFURCACIONES DEL PROGRAMA xx 
DURÓ REM OOOO dad addon 
250 [F- R=1 THEN GOSUB 400 
260 1F R=2 THEN GOSUB 500 
270 1F K=3 THEM GOSUB 600 
280 IF R=4 THEN GOSUE 700 
290 1F R=5 THEM GOSUB 800 
300 1F R=6 THEN GOSUB 900 
510 GOTO 40 
320 END 
BOO REA GOO OIOIO OK KO 
2410 REM Xx SUBRUTINA MODULO kk 
BO REM OOGIOOIOIOGIOOIOOOIOIOJOION XK 
430 ULS 
440 INPUT "CODRDENADA X DEL. VECTOR 2"2xX 
450 INPUT "COORDENADA Y DEL VECTOR 2": Y 
460 LET MSX OZ2LET N=YO92:LET M=M+N:LET M=SOR (MM) 
470 PRINT "EL MODULO DEL VECTOR CAES A 
480 INPUT Y: RETURN 
500 REM AGO OOOO OO Ak 
510 REM Xx SUBRUTINA SUMA XxX 
520 REM IAS JOIOIOJOR 
330 CLS - , 
540 INFUT "COURDENADA X DEL VECTOR 1 :+"3X1 
550 INPUT "COORDENADA Y DEL VECTOR +1 2: "3Y1 
560: INFUT "CODRDENAGDA X DEL VECTOR 2 21 "2X2 
570 INPUT "CODRDENADA Y DEL VECTOR 2 2": Y2 
580 PRINT “EL VECTOR SUMA DE (":X13"."5Y1 
E A RE AV TOS 
53790 INPUT Wi RETURN 
600 REM OOOO ok 
610 REM xk SUBRUTIMA RESTA *x 
4 920. REM AGGOOIOOOIOIGIONOIO OO 
630 CL5 ] 
640 INPUT "COORDENADA X DEL VECTOR 1 2"2X1 
650 INPUT “CODRDENADA Y DEL VECTOR 1 :"3Y1 
pa 660 INPUT “COORDENADA X DEL VECTOR 2 :":X2 
670 INPUT "COORDENADA Y DEL -VECTOR 2 2 "1Y2 
680 PRINT "EL VECTOR RESTA DE ("3X13"."3Y12) 
DERIVEN / 
£90 INPUT W: RETURN 
TOO REM AGORA O OIOOIOSIOOIOOIOIOIOOIOIOROIOIDIO ION ok 
710 REM XX SUBRUTIMNA PRODUCTO POR UN ESCALAR *x* 
720 REM RO OOOO OOOO OOOO OOOO 
730 CELS y : 
740 INFUT "CODRDEMADA-X DEL VECTOR 2"2X 
750 INFUT "COORDENADA Y DEL VECTOR 2": Y 
760 INFUT "ESCALAR 2':A 
770 PRINT "EL VECTOR RESULTANTE DE ("2x2 "."2Y1") 
yXAROI", CI YAA - 
780 INFUT We RETURN 
BOÓ REM GOGO OIGO OPIO GOO BIGIOIOJOR 
810 REM xx SUBRUTINA FRODUCTO ESCALAR Ax 
820 REM GOO GIORIOIO OOOO 
830 ELS 
840 INFUT "EODRDENADA X DEL VECTOR 1 1 
350. INPUT "COORDENADA Y DEL VECTOR 1 : 
860 INFUT "COORDENADA X DEL VECTOR 22 
870 INFUT “COORDENADA Y DEL. VECTOR 2 > 
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A) Y 


ES "im 


(Mimo. 1210) ES 


CEPAL UANZ ES 


POR EL ESCALAR "1A:" ES 


ro Y 


¿Xi 


qu 


Í 


880 FPRINT "El PRODUCTO ESCALAR DE 
MIX RDA VAR Z , 
890 
700 
910 
920 
930 
$40 
750 


INPUT we RETURN 

REM O dlOlOOjo OS olPlIOIDIOlololbiolOoIo lot 
REM Xx SUBRUTINO EDUIPOLENCIA kk 
REM OOOO IO lOGIOIO ROJO Y 
ELS Add, 

INPUT “CODRDENADA X DEL VECTOR 1 
INPUT "COORDENADA Y DEL VECTOR. 1 
360 INPUT 
970 INPUT 
980 LET K$="SON EDUIPOLENTES” 
990 1F 
1000 PRINT "LOS VECTORES 
1010 INPUT W: RETURN 


VARIACIONES PARA OTROS 
ORDENADORES 


ZX-SPECTRUM 
320 GOTO 9999 
COMMODORE 


40 PRINT CHR$(147) 
430 PRINT CHR$(147) 
530 PRINT CHR$(147) 
630 PRINT CHR$(147) 
730 PRINT CHR$(147) 
830 PRINT CHR$(147) 
930 PRINT CHR$(147) 


NATURALEZA Y TECNOLOGIA 


Química: formulación química 


La formulación química es una de las 
cosas más necesarias de aprender, sobre todo 
para aquellos que soñáis ser grandes científi- 
cos, inventores y descubridores de cosas nue- 
vas. 

Por otra parte, también es cierto que a 
veces es algo difícil llegar a conocerla bien: 
la gran cantidad de compuestos existentes y 


ELEMENTOS 


(EA YA) 


COMPUESTOS BINARIOS 
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ir (ESTI ES 


ES 
ue él 
“COORDENADA X DEL: VECTOR 2: "2x2 
"COORDENADA Y DEL VECTOR 2 :"3Y2 


TF, (X1/X2)%>(Y1/Y2) THEN LET Ré="NÓ "+*R9 hd 
03 de ud e lgrio 


IIED MZ RAS 


de métodos de formulación son los principa- 
les motivos. ¡ 

Vamos a presentaros aquí dos progra- 
mas de formulación, el primero actúa como 
alumno resolviendo vuestras preguntas, for- 
mulará los compuestos que le propongáis por 
el método sistemático. 

El segundo programa actúa como un 
profesor, os hará un test para ver cómo anda 
vuestra formulación; para ello ha utilizado el 
método tradicional. 

No os desaniméis, con su ayuda y vues- 
tro esfuerzo llegaréis a formular como gran- 
des químicos. 


COMPUESTOS TERNARIOS 


APRENDER CON EL ORDENADOR [A 


10 REM ROO OOOO OOOO RIOS OOOO OISIOIOPIOIOIOIBIOIOIGOIOIOIOIOIOIO KK 

20 REM kk FORMULACION INORGANICA POR EL METODO SISTEMATICO X*k 

30 REM II 

40 CLS:LET T=0 

S0 REM AMOO OOOO IOIOIOIOIOIOOJOK 

60 REM kk CREACION DE TABLAS DE ELEMENTOS XxX 

TO REM RAROOOROOIO OOOO OIOIOIOOIOIOOIOOIGIOIOOIOIOLA 

80 LET Ti=80:LET T2=18:LET T3=14:LET T4=14 

90 DIM T1i$(T1).T25(T12),T3%5(T13) .14$(T4) 

100 FOR I=1 TO T1 

110 READ Ti$(1) 

120 NEXT 1 

130 FOR 1=1 TO T2 

140 READ T2$(1) 

150 NEXT 1 

160 FOR I=1 TO T3 

170 READ T3%$(1) 

180 NEXT 1 

190 FOR I=1 TO T4 

200 READ T4%(1) 

210 NEXT i 

220 REM OIOOIOOIOOIOIOIOIIOOOIOOOOOOOOO 

230 REM X* LECTURA DE LA FORMULA xx 

DO REM IOOOOIOIOIOOIOOIOOIOIO NOOO OOO 

250 PRINT " FORMULACION INORGANICA POR EL METODO SISTEMATICO" 
260 PRINT 2PRINT :PRINT 

270 PRINT " Recuerda que debes introducir la formula con la primera letra d 
el compuesto en mavusculas v las demás en minusculas." 
280 FRINT ¿PRINT :PRINT 


290 INPUT "¿ES UN COMPUESTO BINARIO O TERNARIO? (B/T1)": ES 


300 
310 


PRINT <PRINT ¿PRINT 
INPUT "IMTRODUCE LA FORMULA :*:F58 


320 LET N=LEN(F*) 


350 


REM ROO OIOROIOIOIOIOIOOPRIOIOIGIOIOIORIOIOOE E 


340 REM Xk IDENTIFICACION DE ELEMENTO Y SUBINDICE Ak 


350 


REM MORO OOO OOOO 


360 DIM ASIN), AMD 


370 


FOR: I=1 TO N 


3890 LET A$S(I)=MIDS(F$, 1,1) 
390 LET A=ASCIAS(1)) 


400 
410 
420 


IF (A-48)>0 AND (A4-48)<10 THEN LET A(1)=1 
NEXT. 1 
1F B$="1" THEN GOTO 700 


430 REM alaO lalalala lalalala OOO BIBI 

490 REM *k FORMULACION DEL COMPUESTO BINARIO XX 

450 REM EEES 

460 FOR I=N TO 1 STEF-1 

470 LET S=ASC(A$(TI)) 

480 1F A0I)=1 THEN LET 0$=0$(1):G0SUB 1000: GOTO 530 

490 1F AtI-1)=1 THEN LET O$=4$(1):G0OSUB 1200: GOTO 330 

500 IF A(I-1)=0 AND S>91 THEN LET Os=As$(1-1)+0$(1)23LET I=1-1:G605UB 1200: GOTO 53 


o 


S10 LET M$=0$(1) 

520 GOSUB 1200 

S30 NEXT 1 

540 PRINT R$ 

550 END - 

700 REM ARROJA ROO OOOO OOOO OOOO OA 

710 REM kk FORMULACION DEL COMPUESTO TERNARIO xx 

FDO REM MAA OOOO OIR lIRIERIORIIOOR 

730 FOR I=N TO 1 STEP-1 

740 LET S=ASC(AS(1)) 

750 IF ACI)=1 THEN LET Ds=0$(1):GOSUE 1000: GDTO 800 
760 1F A(I-1)=1 THEN LET:0$=8$(1):G60SUB 1400: GOTO 800 
770 1F A(I-1)=0 AND 9291 THEN LET 0s=A$(1-1)+08 (1) :LET I=I-1: GOSUB 1400: GOTO S0 


780 
770 
800 
810 


LET Mé$=AS (1) 
GOSUB 1400 
NEXT 1 

GOTO 3540 


1000 REM IRAOOOAOOIOIIOIOIOOIOIOIOORIO OOO IODIOL 

1010 REM xk SUBRUTINA DE SUBINDICES Xx 

1020 REM ARIOAOIESO NOR RIRIOROIIOIOOIaK 

1030 FOR J=1 TO T4 STEP 2 

1040 1F (0$=14$(J) THEN LET R$=R$+14$(J+1):G0T0. 1060 
10950 NEXT y 

1060 RETURN 

1200 REM AO ROIOROIOOIOIOOOIOIOIOIOIOIOIOIOIOIOOIOIOIOIOIOOR 
1210 REM ** SUBRUTINA DE COMPUESTOS BINARIOS A* 
ELO REM RIOOROOIOIOOOIOOOROOIOOIOIOOIOIOIOOIOIOIOIOIORPOIGIOIOON 
1230 LET T=T+1 

1240 1F 7>1 THEN GOTO 1280 
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1250 FOR J=1 TO T2 STEP 2 5 
1260 IF 0$=T2%$(J) THEN LET R$=R$+T12$(J+1)+" de “:GOTOD 1310 
1270 NEXT J 

1280 FOR J=1 TO Ti STEP 2 

1290 IF O$=T1$%(J) THEN LET R$=R$+T1% (J+1):GOTO 1310 

1300 NEXT J 

1310 RETURN 

AA ERC TICITDES 

1410 REM *xk SUBRUTINA DE COMPUESTOS TERNARIOS xx 

1920 REMIGIO OOOO OIOOIOOIOIOIOIORIOIOIOOIOIOIOGIODIOOIONK 

1430 LET T=T+1 

1440 1F T=3 THEN GOTO 1500 

1450 1F T=2 THEN GOTO 1540 

1460 FOR J=1 TO T3 STEP 2 

1470 1F Q0$=13$(J) THEN LET R$=R$+T3$ (J+1):G0T0 1570 


1480 NEXT J 

1490 GOTO 1570 

1500 FOR J=1 TO T1 STEP 2 m3 
1510 IF O$=T1$(J) THEN LET R$=R$+T1$(J+1):;G60T0 1570 Y 

1520 NEXT J 


1530 GOTO 1570 

1540 FOR J=1 TO T3 STEP 2 ? 
1550 1F QOs=T3$(J) THEN LET R$=R$+T13$ (J+1)+" de ":G60TO 1570 

1560 NEXT y 

1570 RETURN 

5000 DATA H.Hidrogeno,Li,Litio,Na.Sodio,K.Potasio.Rb.Rubideo.Cs,Ctesio,Fr,Francio 
5010 DATA Be,Berilio,Ma,Maones10,Ca.Calcio,Sr.Estroncio,Ba.Bario,Ra,Radio 

5020 DATA B.Boro.Al.Aluminio | 

5030 DATA C.Carbono,Si1,Silicio 

5040 DATA N.Nitrogeno,As.Arsenico.Sb.Antimonio.Bi.Bismuto 

5050 DATA 0,ODx1igeno,5,Azufre,Se,Selenio,Te,Teluro 

5060 DATA F.Fluor,Cl.Cloro.Br.Bromo,l. lodo 

5070 DATA Cu.Cobre,fAa,Plata,Au.Oro,Mn,Manganeso,2n,Cinc.Ho,Mercurio,Fe,Hierro,Pt 
,»Platino.Cr.Crom6.Pb.Plomo.S5n.Estaño 

£000 DATA D.Oxido,+,H,Hidruro 

6010 DATA F.Floruro.Cl.Cloruro.Br .Bromuro,1.loduro,S.Sulfuro.Se,Seleniuro,Te.Tel 
ururo 

7000 DATA 0.0x0,.S.Sulfato.Se.Seleniato 

7010 DATA Cl1,Clorato,Br Bromato,P.Fosfato.l.lodato 

8000 DATA 1.Mono.2.Di,3,Tri,4.Tetra,S.Fenta.6.Hexa,7.Hepta 


VARIACIONES PARA OTROS Las sentencias DATA deben llevar los 
ORDENADORES datos entre comillas por ser alfanuméricos. 
ZX-SPECTRUM 
90 DIM T1$(T1,10),T2$(T2,10), COMMODORE 
T3$(T3,10),T4$(T4,10) 
550 GOTO 9999 40 PRINT CHR$(147):LET T=0 
10 REM AOGIOOIOOOIOIOIOIOOIOOIOOIOOIOIOOIOOIOOIOIORIOOIRIBIOOIBIOIDOIOBIBOIBRRIORIONE * 


20 REM *xk FORMULACION QUIMICA POR El METODO TRADICIONAL XxX 
30 REM ada lalo jolla lP lll llo lala lll lolo ldjolGiojoK 
40 CLS 

SO REM RIOS OOIOOIOIOIGIOOIOIOOIOIORGIOIOSIOIOIOIOIODION* 

60 REM *Xk NUMERO DE DATOS Y PREGUNTAS Xx 

TO REM AO OIOOIOOOIOIOIOIOIOIOIOIOIOIOIOIOIODIRORIOONK 

80 PRINT "FORMULACION QUIMICA POR EL METODO TRADICIONAL" 
90 PRINT:PRINT:PRINT 

100 PRINT "...FARÁA REALIZAR LA FORMULACIÓN DEBE PONER EN MAYUSCULAS LAS INICIALE 
S DE LAS PALABRAS Y DE LOS COMPUESTOS" 

110 LET N=38:LET PREG=10 

120 REM GORRO OOOBIORO RIP DIO 

130 REM XX LECTURA DE MATRIZ DE DATOS Xx 

140 REM AIROSO OOOO OOOO IORIdd lodo IGBDBIBOOK 

150 DIM M$C2XN) 


160 FOR I=1 TO 2XN » 
170 READ A$S:LET MSC(1)=A% 
180 NEXT 1 


190 REM OROIOIOIOIOIOOOOIOOOIOIOOIDIRDO 

200 REM Ak PREGUNTAS DEL TEST %*xk , 
PO REM OOOO OOO oO 

220 FOR K=1 TO PREG 

230 LET Q=INT(RNDAZAN) +1 
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APRENDER CON EL ORDENADOR iz 


240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
40 
440 
450 
460 
470 
480 
490 
500 
s10 


GOSUB 450 

1F A =1 THEN GOTO 
NEXT K : 

REM OOOO OA 

REM xk RESPUESTAS TEST %*A 

REM OSIOOICOORIOIOMIOIGIODIODIO 

FOR I = 1 TO PREG 

PRINT 1:".-":M$(T(1)) 

LF TC =2kINT(T(1)/2) THEN INPUT 


230 


1F FS =M$(T(1)-1) THEN GOTO 410 
PRINT M$(T(1)-1) 

GOTO 420 

INFUT 
IF W$ =M$(T(1)+1)THEN GOTO 410 
PRINT M$(T(1)+1) 

GOTO 420 4 
PRINT "¡i¡/+CORRECTO !'!!'":60TO 430 
PRINT "MAL " 

NEXT 1 

END 
REM 
REM 
REM 


IOIOOOOIOOIOIOIOOIOIOOOIOICIOOIOOOK XX 
XA SUBRUTINA COMPUESTOS *Xx% 
OOOO AAA AAA 
LET T(k)=0 

FOR P=1 TOD Kk-1 

IF Q=T(P) THEN LET A=1: 
NEXT FP 

520 LET A=0 

330 RETURN 
1000 DATA 
dico” 


GOTO 330 


"Introduzca formula... 
1F TC1)<>2KINT (7 (1)/2) THEN GOTO 370 


"FS 


“Introduzca el nombre del compuesto... “:W$ 


"H52504","Acido Sulfurico"."HC1".,"Acido Clorhidrico",“Nac1", "Cloruro So 


1010 DATA "K2Cr04"."Cromato de Potasio"."A025203".,"Tiosulfato de Flata”,” (NH4)25 


05","Feroxosulfato de Amonio” 


1020 DATA "Ma(102)2"."lodito de Maanesio"."NaAsO03”"."Metaarseniato de Sodio"."FeZz 


-P207","Difosfato de Hierro(IV)" 


1030 DATA "A1(C10)3”"."Hipoclorito de Aluminio”. "Ao2Cr04","Cromato de Plata”, '"NaH 


MnO04”.,"Hidrocenomanoanato de Sodio" 
1040 DATA 
Manganato de Estroncio” 


“NH94CN". "Cianuro de Amonio", "NH4SCN","Tiocianato de Amonio", "SrMn04",' 


1050 DATA "H202"."Peroxido de Hidrogeno"., 
CO3","Carbonato de Estroncio" 

1060 DATA "Mg(C104)2","Ferclorato de Maonesio”,"MnS”,"Sulfuro de Manganeso(11) 
1070 DATA "L1iHS"."Hiorogenosulfuro de Litio”. "NaHCO3","Bicarbonato de Potasio","” 
Fe(0H)2".,"Hidroxido Ferroso",“Ba(BrO0)2","Hipobromito de Bario" 

1080 DATA "Li4C"."Carburo de Litio"."K35b04”."Antimoniato de Potasio","AgCN”,"Ci 
anuro de Plata".'"CC14","Tetracloruro de Carbono" 

1090 DATA "H2Se"."Acido Selenhidrico","H4Sb205","Acido Piroantimonioso","BH3","B 
orano” 

1100 DATA "CH4",'“Metano",'"SiH4","Silano"."NH3","Amoniaco"."PH3"."Fosfina",."AsH3" 


"A04P207","Pirofosfato de Arsenico”."Sr 
4 4 


«"Érsina”","SbH3".,"Estibina”,"H20","Aoua" 


VARIACIONES. PARA OTROS 
ORDENADORES 


ZX-SPECTRUM 


150 DIM M$(2'N,23) 
440 GOTO 9999 


COMMODORE 
40 PRINT CHR$(147) 


SOCIEDAD 
Mi Geografía: Los volcanes 


Probablemente, es el vulcanismo el pro- 
ceso magmático mejor conocido por el hom- 
bre. Esto se debe a que una parte, al menos, 
del proceso puede ser observada con relativa 
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facilidad. No obstante, el vulcanismo no es aún 
totalmente conocido. 

Recordemos, en primer lugar, qué es 
un volcán. 

Un volcán puede definirse como una fi- 
sura o grieta de la corteza terrestre que pone 
en comunicación a las masas magmáticas in- 
ternas con la superficie. 


El magma es una mezcla de materiales 
fundidos (principalmente silicatos), gases en 
disolución (dióxido de carbono, flúor, cloro...) 
y productos sólidos (no fundidos o ya cristali- 
zados a partir de las moléculas dispersas del 
propio magma). 

Una característica importante del mag- 
ma es su viscosidad; en ella influye, entre 
otros factores: la composición química, la tem- 
peratura, la presión... Al mismo tiempo, es esta 


característica la que más va a influir en el 
tiempo de erupción volcánica; de éstas se dis- 
tinguen cuatro tipos que surgieron al produ- 
cirse erupciones reales y, por ello, llevan nom- 
bres de volcanes conocidos: Hawaiano, Pelea- 
no y Estromboliano. 

Es posible que estos fenómenos te re- 
sulten enigmáticos y en ocasiones te hayas he- 
cho preguntas como: 

¿De dónde proceden los magmas? 

Se supone que proceden de zonas di- 
versas de la Tierra denominadas subcortica- 
les, si se originan por debajo de la corteza 
terrestre, e intracorticales, si se originan en 
zonas continentales a poca profundidad. 

¿Cómo se originan? 

En cualquiera de las zonas se debe a la 
energía térmica existente, los materiales se 
funden, dando lugar a los magmas. 

¿Cómo ascienden? 

Se debe principalmente a diferencias 
de presión, viscosidad y densidad entre el 
magma y la roca encajante. 

En el camino ascendente el magma se 
va enfriando y solidificándose. 

La fuerza que lleva le hace salir al ex- 
terior, produciéndose así la erupción volcá- 
nica. 

Una vez recordados algunos puntos, 
puedes fijar tus conocimientos con la ayuda 
del ordenador; el programa que te presenta- 
mos consta de dos opciones: 

— Diagramas de las partes de un vol- 
cán y sus tipos. 

— Test de conocimientos. 


10 SCREEN 2 

20. CLS 

30 PRINT ” Y 
40,.PRINT " V D 
SO PRINT " V v 0 
60 PRINT " voy o 
70 PRINT ” Y 000 Lui 
80 PRINT 
90 FRINT 
100 PRINT 
110 FRINT * 
120 PRINT 
130 PRINT " 
140 PRINT 
1530 PRINT ” 
160 PRINT 
170 PRINT " 
190 PRINT 
190 PRINT 
200 INPUT "¿QUE OPCION DESEAS":R 


t 
L [o 
L; E 
L e 


210 1F R=ií THEN GOSUB 500:G0TO 20 
220 1Ff R=2 THEN GOSUB 4000:GODTO 20 


230 END 


ECCC ARA 


ELE. A A 


7 
N 
5 
A 
A 
N 
N 
N 


1. Foco. 5. Lava. 

2. Chimenea. 6. Cono. 

3. Cono. 7. Fumarola. 
4. Cráter. 


SA 


1. Estromboliano. 
2. Vulcaniano. 


3. Peleano. 
4. Hawaiano. 


N N EEEE S5S " 
ACOAN NE Ss = 
ABABA /N. NN EEE S3558" 

N NE s" 
N N. EEEE SSS5 
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MENU PRINCIPAL: 
1.-FARTES DE UN VOLCAN 
Y TIFOS DE VOLCANES 


2.—TEST DE CONOCIMIENTOS 


SOO REM OOIOOOOOIOOIOOOROOOOOIODIODIODRRGOK 
510 REM xX% PROGRAMA DIBUJOS VOLCAN XA 


APRENDER CON EL ORDENADOR INN 


SILO REM OOOO OOOOOIOOOIOIORIOIOCIOOO Nk 
530 CLS 
540 RESTORE 3030 
550 LET Y=300-50 
560 PSET (2. Y) 
570 FOR I=1 TO 6 
580 READ A.B 
590 LET B=Bx(-10):LET B$=STR$(E):LET A=AkX10:LET AS=STR$(A) 
600 LET DIBS="M"+"+"+Aas+", "+ "+ "+85 
610 DRAW DIBS 
620. NEXT 1 - 
630 LET Y=300-10 
640 PSET (250.Y) 
6530 FOR i=1 TO 5 
660 READ A.B 
670 LET B=BkX(-10):LET B$=STR$(B):LET A=AX1O0:LET AS=5TR$(A) 
680 LET DIBS="M"*"+"+03+" "+"+"+ES 
, 690 DRAW DIBS E be 
y 700 MEXT 1 
710 LET Y=300-100 
720 FSET (300,Y) 
730 FOR 1=1 TO 8 
740 READ A,B 
7350 LET B=BxX(-10):LET ES=STR$(B):LET A=AXIO:LET AS=STR*$(A) 
760 LET DIBS$="M"+"+"+A$+"."+"+"+BS 
770 DRAW DIBS 
780 NEXT 1 
790 LET Y=300-70 
800 PSET (1,Y) 
810 FOR I=1 TO 14 
820 READ A,k 
830 LET B=REX(-10)1LET BES=STRS(B):LET A=AXÍO:LET A$=STR$(A) 
840 LET DIBS="M"+"+"+as+" MA" "+BS 
850 DRAW DIBS 
860 NEXT I 
870 GOSUB 1500 
880 INPUT O n 
1000 REM OIOIOOOIRIOOIOIOIOIOIOOOIOOIOIOIOIOIOIOIOIOIOIO OR 
1010. REM Ak DIBUJO TIPOS DE VOLCANES *x* 
VOZO REM OOOO OIOGIOOIOOOGIOOIOIOIO XK 
1030 CLS 
1040 LET Y=300-20 
1050 PSET (1,Y) 
1060 FOR I=1 TO 3 
1070 READ A,B 
1080 LET B=Bx(-10):LET B$=STR$(B):LET A=AX10:LET AS=STR$ (A) 
1090 LET DIB$="M"+"+"+As+" "++" +BR 
1100 DRAW DIES 
1110 NEXT I 
1120 LET Y=300-10 
1130 PSET (100,Y) 
1140 FOR I=1 TO 11 
1150 READ A,B 
1160 LET B=BxX(-10):LET B$=STR$(B):LET A=AX10:LET AS$=STRS(A) 
Í 1170 LET DIB$="M"+*"+*"+09+" "+"+"+B5 ; 
1180 DRAW DIBS 
1190 NEXT 1 
1200 LET Y=300-20 
A b 1210 PSET (360,Y) 
1220 FOR I=1 TO 10 
1230 READ A.B 
1240 LET B=Bx(-10):LET B$=STR$(B):LET A=AX1O:LET A$=STR$(A) 
1250 LET DIBS="M"+"+"+Ag+4 0, "MB 
1260 DRAW DIBs 
1270 NEXT 1 
1280 LET Y=300-150 
1290 PSET (1.Y) 
1300 FOR I=1 TO 20 
1310 READ A,B 
1320 LET B=E*(-10):LET E$=STR$S(E):LET A=AxX10:LET AS=STR$ (A) 
1330 LET DIBS="M"+"+"+As+" "+" "+"+B5 
1340 DRAW DIBS$ 
1350 NEXT 1 
1360 GOSUE 2000: RETURN 
1500 REM aSROIOCIOlOlO OOO: 
1510 REM Xxx NOMBRES xx 
1520 REM OOOO GIBIODIO E d 
1530 LOCATE 20.20: PRINT "1" 
1540 LOCATE 16,21:PRINT "2" 
1550 LOCATE 11.22:PRINT "3" 
1560 LOCATE 7,19:PRINT "4" 


a 
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1570 LOCATE 14.4: FRINT "5" 

1580 LOCATE 10.40: PRINT "6" 

1590 LOCATE 9.38: PRINT "7" 

1600 FOR I=1 TO 7 

1610 READ:Ns 

1620 LOCATE 1.1: PRINT 1: "-"¿N8 

1630 INPUT "PRESIONA UNA TECLA PARA CONTINUAR “;A 

1640 NEXT 1 

1650 RETURN 

2000 REM OIOROIOOIDIO 

2010 REM Xk TIPOS Xx 

2020 REM OOOO 

2030 LOCATE 20.10: PRINT "1" 

2040 LOCATE 20.45: PRINT "2" 

2050 LOCATE 11,15: PRINT "3" 

2060 LOCATE 11.40:PRINT "4" 

2070 FOR I=1 TO 4 

2080 READ N$ 

2090 LOCATE 1.1:PRINT 13 "-"2NS ., 

2100 NEXT 1 

2110 INPUT A 2 

2120 RETURN : 

FOO REM OOOO k ñ 

3010 REM Xk DATOS kx 

3020 REM OROOOOOOA 

3030 DATA +7.+9, +9, +11 +22 1 -9,-2,-3,-4,-5 

3040 DATA -2,+3,+11,+6,+2,+5,+1,+1,+7,-9 

3050 DATA -8.+10.-2,-2,+2,-12,+6.+2,+6,+4,+1,+3,-1,+1,-6,-4 

3060 DATA +9,+5,+8,+9,+2,-2,-2,+5,-3,-1,+3,+1,+2,-5,+1,+4,-1,-4,+2,+0,+0,+6,+0,- 

6+3 +5, +2.-2 

3070 DATA "FOCO " "CHIMENEA : " "CONO " "CRATER 
" "LAVA “, "CONO ADVENTICIO","FUMAROLA " 

3OBO DATA +6,+11.+1,=1.-1,-11 

3090 DATA -1,+11.+1.+1,+5.-11,+10,+0,+6,+11,+42,-2 1,9, =1 1,1, -3,-3,+3,+3,-4 

3100 DATA +2,42,+0,+2,=1,-1,-1,+1,-1,+2,+1,+2,-1,-1,-1,+2,+2,+2,+5,-11 

3110 DATA +9,+6,+1,-1,+0,-5,+0,+B,+2,-B,-1, +5) +1 +17 76,+7,+7,+3,-1,+0,-6,+0,+ 

6-3,+1,+3,+1,+2,+0,+3,1,+7,7,-7,+7,-3,-1,+0,-6 

3120 DATA "ESTROMBOLIANO ","VULCANIANO —","FELEAND  ","HAWATAND  " 

3130 RETURN 

4000 REM AOS 

4010 REM kk PROGRAMA PREGUNTAS VOLCAN xx 

4020 REM ORO ORIO RIRIOROIOROJOJOK 

4030 CLS 

4040 RESTORE 5000 

4050 LET P=16 :LET PREG=16 

4060 DIM P$(PXZ) 

4070 FOR I=1 TO Px2 

4080 READ P$(1) 

4090 NEXT 1 

4100 FOR I=1 TD PREG 

4110 PRINT "ESCRIBE LA RESPUESTA EN MAYUSCULAS": PRINT 

4120 PRINT P$(1IX2-1) 

4130 INPUT Rs 

4140 IF R$=F$(1X2) THEN GOTO 4170 

4150 PRINT "LA RESPUESTA ES "¡P$(1X2) 

4160 GOTO 4180 


4170 PRINT "¡¡¡CORRECTO!!!'":FOR Z=1 TO 500:NEXT Z 

4180 NEXT 1 

4190 RETURN > 
5000 DATA "El conjunto de rocas fundidas, mezcladas con los gases desprendidos r 

ecibe el nombre de ",'"MAGMA" 


5010 DATA "Cuando el magma asciende por una orieta se forman los "."VOLCANES” 
5020 DATA "El nucleo candente o bolsa de maama recibe el mombre de ",“FOCO” 
5030 DATA "La grieta principal que comunica el foco con el exterior es la 
", "CHIMENEA" 
5040 DATA "La parte en forma de cono recibe el nombre de "."CONO" 
5050 DATA "La cavidad de la parte alta se denomina "."CRATER” 
5060 DATA "Cuando un volcan está en actividad se dice que está en ", "ERUPCION" 
5070 DATA "Las erupciones de maoma. poco violentas y sin explosiones son de tipo 
Y" "HAWAIANO" 
5080 DATA "Los volcanes MAUNA, LOA Y KILAUEA son de tipo ". "HAWAIANO" 
5090 DATA "Las erupciones de maoma fluido que arrojan productos solidos son del 
tipo "."ESTROMBOLIANO” 
5100 DATA "El volcan Estromboli es de tipo "., "ESTROMBOLIANO" 
5110 DATA "Las erupciones de lava espesa que se solidifica con rapidez. son del 


tipo ", "VULCANIANO" ] 

5120 DATA "Los volcanes VESUBIO y VULCANO son de tipo ”.”VULCANIANO" 

Si30 DATA "Cuando la lava es tan espesa que se solidifica sobre el crater se dic 
e que es del tipo "."FELEANO" 


5140 DATA "El volcan del MONT PELE es del tipo ","PELEANO" 
5150 DATA "Las emenaciones naseosas que se escapan por las orietas se llaman “,” 
FUMAROLAS" 
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APRENDER CON EL ORDENADOR IIA 
VARIACIONES PARA OTROS - 


ORDENADORES 
ZX-SPECTRUM 


10 no se pone 
230 GOTO 9999 
550 LET Y=50 
560 PLOT 2,Y 
590 no se pone 
600 no se pone 
610 DRAW A*5,B*5 
630 LET Y=10 
640 PLOT 250, Y 
670 no se pone 
680 no se pone 
690 DRAW A*5,B*5 
710 LET Y=100 
720 PLOT 300, Y 
750 no se pone 
760 no se pone 
T1I0DRAW A'5,B'5 
790 LET Y=70 
800 PLOT 1,Y 
830 no se pone 
840 no se pone 
850 DRAW A*5,B*5 

1040 LET Y=20 

1050 PLOT 1,Y 

1080 no se pone 
1090 no se pone 
1100 DRAW A*5,B*5 
1120 LET Y=10 


AMSTRAD 


1Q MODE 2 
550 LET Y=50 
560 PLOT 2, Y 
590 no se pone 
600 no se pone 


1130 PLOT 100, Y 

1160 no se pone 

1170 no se pone 

1180 DRAW A'*5,B*'5 
1200 LET Y=20 

1210 PLOT 360, Y 

1240 no se pone 

1250 no se pone 

1260 DRAW A'5,B'5 
1280 LET Y=150 

1290 PLOT 1,Y 

1320 no se pone 

1330 no se pone 

1340 DRAW A*5,B*5 
1530 PRINT AT 20,20;"1” 
1530 PRINT AT 16,21;"2" 
1530 PRINT AT 11,22;"3” 
1530 PRINT AT 7,19;"4” 
1530 PRINT AT 14,4;"5" 
1530 PRINT AT 10,40;"6" 
1530 PRINT AT 9,30;"7" 


1620 PRINT AT 1,1;1;"-N$ 


2030 PRINT AT 20,10;*1” 
2040 PRINT AT 20,45;"2" 
2050 PRINT AT 11,15;"3” 
2060 PRINT AT 11,40;"4" 


2090 PRINT AT 1,1;1;"-"¡N$ 


4060 DIM P$(P*2,60) 


680 no se pone 

690 DRAWR A*10,B*10 
710 LET Y=100 

720 PLOT 300, Y 

750 no se pone 


610 DRAWR A*10,B*10 760 no se pone 


630 LET Y=10 
640 PLOT 250, Y 
670 no se pone 


770 DRAWR A*10,B*10 
790 LET Y=70 
800 PLOT 1,Y 


830 no se pone 

840 no se pone 

850 DRAWR A*10,B*10 
1040 LET Y=20 
1050 PLOT 1,Y 
1080 no se pone 
1090 no se pone 
1100 DRAWR A*10,B*10 
1120 LET Y=10 
1130 PLOT 100,Y 
1160 no se pone 
1170 no se pone 
1180 DRAWR A*10,B*10 
1200 LET Y=20 
1210 PLOT 360, Y 
1240 no se pone 
1250 no se pone 
1260 DRAWR A*10,B*10 
1280 LET Y=150 
1290 PLOT 1,Y 
1320 no se pone 
1330 no se pone 
1340 DRAWR A*10,B*10 
1540 LOCATE 21,16:PRINT “2” 
1550 LOCATE 22,11:PRINT “3” 
1560 LOCATE 7,19:PRINT “4” 
1570 LOCATE 4,14:PRINT “5” 
1580 LOCATE 40,10:PRINT “6” 
1590 LOCATE 88,9:PRINT “7” 
2030 LOCATE 10,20:PRINT “1” 
2040 LOCATE 45,20:PRINT “2” 
2050 LOCATE 15,11:PRINT “3” 
2060 LOCATE 40,11:PRINT “4” 
2090 LOCATE 1,I:PRINT I;"-"/N$ 


PARA LOS MAS JOVENES 
ll Circulación vial 


Tú, aunque seas pequeño, también tie- 
nes derecho a tu examen de circulación, po- 
drás obtener tu carné de conducir cuando 
seas mayor, pero no por ello debes dejar de 
conocer ahora algunas normas básicas. 

Para empezar, debes ser capaz de su- 
perar un test que te proponemos en el progra- 
ma; contiene los conceptos más elementales 
que debes saber. 


DO REM OOOO RIO IO 
20 REM xk PROGRAMA SOBRE LA CIRCULACION VIAL Xx 
SO REM SIOIO RIOR OSI IOIOIOIOIO OK 


40 CELS 


SO LET E=0 


80 REM OOOO OOOO OOO 
70 REM AX LECTURA DE PREGUNTAS DEL TEST kx 
SO REM ROOOOIOOOIOIORPIOOOIGIOOOIOIOO OOOO OIOK: 


90 DIM P2(40): DIM R(10) 

100 FOR I=1 TO 40 

110 READ P$(1) 

120 NEXT 1 

130 REM OOOO OIIOIOIOOIOOISOOIOGIOIODIOK 

140 REM Xx LECTURA DE RESPUESTAS DEL TEST xx 

1 SO REM RARO OOOO 

160 FOR I=1 TO 10 : 

170 READ R (1) 

180 NEXT 1 

190 REM OOOO ROI ROOIIGOIOOIOR 

200 REM kk ENCABEZAMIENTO CON CONTADOR Y COCHE Xx 

BO REM ARAS RISE RIORIOIRSIIO OR 

220 PRINT" 0 1 2 3 4 5 6 7 8 9 10 META" 
230 PRINT " $8 4 
240 PRINT "HHHRRA 4 ye 
250 PRINT "0.0 pS 

260 REM aaa lpIOpIoIOJok 

270 REM xx PREGUNTAS TEST XxX 

280. REM AAOOOOROIOIORDIOOOIOO 

290 FOR 1I=1 TO 10 

300 LOCATE 10,1:PRINT P$(1k4-3) 
310 LOCATE 12.5:PRINT P$(1k4-2) 
320 LOCATE 14,5:PRINT P$(1x4-1) 
330 LOCATE 16,5:PRINT P$(1k4) 

340 PRINT 

350 INFUT ON 

360 CLS 

370 GOSUB 1530 

380 IF N=R(I) THEN LET C=C+*1 

390 GOSUB 1030 

400 NEXT 1 

410 1F C=10 THEN GOSUB 2000 

420 END q 

1000 REM RASO 
1010 REM xx SUBRUTINA CONTADOR Xx 
1020 REM ROOOIAOOIOIOOOOIOOIODE EX 
1030 LOCATE 2,CX5-4 

1040 PRINT " pm.or 

1050 LOCATE 3,CX5-4 

1060  PRINT " PHRRR 

1070 LOCATE 4,CX5-4 

1080 PRINT * DD" 

1090 RETURN 

100 REM RMOAOIOOOOOOORORIOOIOOK 
1510 REM xk SUBRUTINA CAMINO Xx 
1520 REM ROAROOOOOOOIOOOIOIOOIOOK 
1530 PRINT "0 1 2 3 4 5 6 7 8 9 10 META" 
1590 PRINT * + pr 
1550 PRINT ” 4 yo 
1560 PRINT " + q 
1570 RETURN 

2000 REM OOOO DIO 

2010 REM XX GANADOR xk 

2020 REM aMOaIOOIOdIOoIlOL 

2030 PRINT :FRINT :PRINT :PRINT 


2040 PRINT ” AGO OOO" 

2050 PRINT * * xk" 

2060 PRINT ” k kx" 6 
2070 PRINT ” * x" 

2080 PRINT " xx" 

2090 PRINT ” xx” 

2100 PRINT " xk" 

2110 PRINT ” AGO! 

2120 PRINT 

2130 FPRINT ” CAMPEON " 


2140 RETURN A 

3000 DATA "EN LA CIUDAD LOS COCHES CIRCULAN FOR LA :"."1-LA ACERA"."2-LA CALZADA 
","3-LAS CALLES PEATONALES" 

3010 DATA "YO DEBO CRUZAR CUANDO EL SEMAFORO DE FEATONES ESTE: "."1-EN VERDE", '"2- 
EN AMARILLO”, '"3-EN ROJO" 

3020 DATA "LOS ENCARGADOS DE PONEK ORDEN EN EL TRAFICO SON: "."1-LOS BOMBEROS”, "2 
LOS GUARDIAS DE TRAFICO"."3-LOS POLICIAS NACIONALES” ; 4 

3030 DATA "LOS COCHES LOS CONDUCEN: ".”"1-LOS:MAYORES"."2-LOS NIÑOS", "3-LAS NIMAS” 
3040 DATA "LOS VEHICULOS DE TRANSPORTE PUBLICO SON: ".,"1-LAS MOTOS”,"2- LOS COCHE 
S".,"3-LOS AUTOBUSES” 

3050 DATA "LOS NIMOS CUANDO VAN EN COCHE DEBEN SENTARSE EN: *"."1-EL ASIENTO TRASE 
RO","2-EL MALETERO", "3-EL ASIENTO DELANTERO” 

3060 DATA "LOS AUTOMOVILES PARA EL TRANSPORTE DE MERCANCIAS SE LLAMAN: "."1-MOTOS 
*,"2-AUTORUSES"."3-CAMIONES" 
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APRENDER CON EL ORDENADOR! 


3070 DATA "LOS AUTOBUSE RECOGEN A LAS FERSONAS DUE QUIEREN VIAJAR EN ELLOS: "."i- 
EN LAS BOCAS DE METRO”.”"2-EN CUALQUIER SITIO", "3-EN LAS PARADAS DE AUTOBUS" 
3080 DATA "LOS COCHES DEBEN PARAR CUANDO: "."1i-EL SEMAFDRO ESTA VERDE","2-NOD HAY 


SEMAFORO","3-HAY UN PASO DE CEBRA" 


3090 DATA "LA GENTE DEBE CONDUCIR: "."1-A TODA VELOCIDAD"."2-CON PRUDENCIA". "3-MU 


"Y MUY DESPACIO" 
3100 DATA 2,1.2,1,3,1,3,3,3.2 


MODIFICACIONES PARA OTROS 
ORDENADORES 


ZX-SPECTRUM 


90 DIM P$(40,50):DIM R(10) 

300 PRINT AT 10,1;P$(1'4-3) 

310 PRINT AT 12,5;P$(1'4-2) 

320 PRINT AT 14,5;P$(1'4-1) 

330 PRINT AT 16,5;P$(1'4) 

440 GOTO 9999 
1030 PRINT AT 2,C*5-4;" HH 
1040 no se pone 
1050 PRINT AT 3,C*5-4;" HHHHHF 
1060 no se pone 
1070 PRINT AT 4,C*5-4;" o 0 


AMSTRAD 


300 LOCATE 1,10: PRINT P$(1'4-3) 
310 LOCATE 5,12: PRINT P$(1"4-2) 


320 LOCATE 5,14: PRINT P$('4-1) 
330 LOCATE 5,16: PRINT P$('4) 
1030 LOCATE C*5-4,2 
1050 LOCATE C*5-4,3 
1070 LOCATE C*5-4,4 


MSX 
No hay variaciones 


COMMODORE 


40 PRINT CHR$(147) 
360 PRINT CHR$(147) 


En las líneas 300, 310, 320, 330, 1030, 
1050, 1070 debes utilizar la rutina que se 
daba en el primer fascículo para situar el 
cursor en una posición de la pantalla. 


J 
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PEQUEÑA HISTORIA DE LA INFORMATICA Mn 


A empresa Apple no existía 
hace diez años. Sus funda- 
dores, Stephen Jobs y Steve 
Wozniak, estaban trabajan- 
do en dos empresas del va- 
lle, Atari y Hewlett Packard. 
La historia de Stephen Jobs 
no parece muy alegre ni fá- 
cil. Es un niño abandonado, adoptado por Cla- 
ra y Paul Jobs. Su carácter no es muy abierto, 
y es una persona meditabunda. Como buen 
contestatario, no acepta en principio la comi- 
da tradicional, se hace vegetariano, y prueba 
la meditación y el LSD. Por fin, comienza a tra- 
bajar en Atari, una pequeña empresa del va- 
lle, muy innovadora. Ha diseñado un ping 
pong electrónico para jugar utilizando el or- 
denador. En Atari tampoco gana demasiados 
amigos, ya que resulta muy solitario y excén- 
trico. Como la sociedad es muy pequeña y el 
trato muy personalizado, la dirección llega a 
un acuerdo con Jobs para que trabaje por la 
noche. Pero Jobs no se ha adaptado, sigue ha- 
ciéndose preguntas que no tienen respuesta. 
Abandona Atari, y parte hacia la India, bus- 
cando un sentido a su vida. A su vuelta, no ha 
logrado tampoco avanzar mucho en su contac- 
to con las demás personas. Intenta localizar a 
sus verdaderos padres, pero tampoco lo con- 
sigue. Finalmente, este inadaptado se integra 
en un club informático, y es en él donde co- 
noce al que será su socio y amigo: Steve Woz- 
niak. Wozniak es un hombre de negocios: para 
él no basta con crear algo innovador, hay que 
darlo a conocer, venderlo, y obtener el dine- 
ro necesario para seguir trabajando. Como los 
dos hombres son muy jóvenes, sin contactos ni 
experiencia empresarial, Wozniak introduce 
en el negocio al mejor comercial de Intel, Mike 
Makkula. 

En el verano de 1976, el prototipo del 
nuevo ordenador Apple, el Applel, aparece 
en proveedores especializados, que les encar- 
gan varios pedidos. 


¿Por qué el nombre de Apple? Sencilla- 
mente, porque Jobs había engordado mucho, 
y estaba obsesionado en adelgazar comiendo 
manzanas. Y como tenían verdadera prisa en 
adoptar un buen nombre, y ninguno se ocupa- 
ba seriamente de este pequeño problema, se 
pusieron un tope de tiempo, pasado el cual si 
no tenían un nombre a gusto de todos, pon- 
drían al ordenador sencillamente Apple. Ese 
nombre puede parecer una tonteria, pero ha 
resultado ser un gran acierto. En primer lugar, 
es diferente a cualquier otro de los seleccio- 
nados para los ordenadores, y, en segundo lu- 
gar, tiene cierto encanto de juventud, de inno- 
vación. 

Tomando previsiones para el futuro, y 
también con fines de difusión comercial, la 
empresa instaura la norma de regalar un cier- 
to número de máquinas a las Universidades. 
Esa acción favorece muchísimo su difusión. 
Como el precio de las máquinas es relativa- 
mente asequible (desde luego está absoluta- 
mente al alcance de pequeñas empresas), la 
acción es un acierto total de marketing. 

Desde el año 1976, la empresa ha subi- 


- do «algunos» escalones. Hoy, casi la cuarta 
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parte del mercado de microordenadores es 
de Apple. 

Otra firma, Vector, también es fruto de 
las cavilaciones de dos jóvenes. En este caso 
se trata del matrimonio Harp. Bob, es ingenie- 
ro y creó un prototipo de ordenador. Su mujer 
se sintió suficientemente valerosa como para 
comercializarlo. Y la empresa sigue crecien- 
do saludablemente, a pesar de que el matri- 
monio se separó. 

En el valle del Silicio es fácil encontrar 
titulados en cualquier disciplina, muy especia- 
lizados. Basta ir a alguna de las fiestas locales. 
Por ello, es rentable invertir en investigación 
en la zona. Los investigadores se encuentran 
ya establecidos, y las tecnologías más nuevas 
están al alcance de la mano incluso (los técni- 
cos se van informando sobre los productos ya 


PEQUEÑA HISTORIA DE LA INFORMATICA IIA 


desarrollados sin casi darse cuenta en reunio- 
nes de amigos, en charlas con otros ingenie- 
ros de la zona, etc.). No estamos hablando de 
«secretos industriales», sólo de la tecnología 
disponible. 

El gobierno americano tiene asignados 
muchos proyectos, de todo tipo a empresas de 
la zona. No es extraño, California es uno de los 
Estados más industrializados y avanzados. El 
Departamento de Defensa es el que más in- 
vierte en tecnología, siendo el capital conside- 
rable (indirectamente, casi un tercio de todos 
los recursos dedicados a investigación). La pa- 
labra investigación no es muy explícita. Pue- 
de englobar muchas facetas. Se puede, por 
ejemplo, investigar sobre las lejanas galaxias, 
y se puede investigar sobre mercados, sobre 
las industrias competitivas, sobre la inciden- 
cia de esta segunda revolución industrial, so- 
bre el individuo, etc. En el valle de Santa Cla- 
ra existen empresas dedicadas a investigar 
sobre galaxias (como Ames, alfrente de la cual 
está un antiguo colaborador de la NASA, el 
profesor Billingham), natualmente con un pro- 
yecto financiado por el gobierno americano, 
también, los hay dedicadas a investigar sobre 
los efectos de la industrialización en la socie- 
dad (profesor Yudken, de la Universidad de 
Stanford). 

El valle del Silicio supone una reacción 
contra el sistema IBM. Esta empresa es gigan- 
te, cuida a sus empleados, les ofrece un futu- 
ro seguro, con unas retribuciones bastante 
buenas, etc., a cambio de lealtad y disposi- 
ción. El valle del Silicio, por el contrario, está 
lleno de pequeñas empresas creadas por in- 
dividuos que estaban dispuestos a perder su 
estatus cómodo, para pasar a trabajar en gara- 
jes y buhardillas, sin ningún tipo de seguridad 
para su futuro. Es la contraposición. (A pesar 
de ello, IBM es propietario del 12% del capi- 
tal de INTEL, y tiene opciones para obtener 
hasta el 30 % del capital.) 

El futuro del valle, sin embargo, tiene 
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claroscuros. Los precios se han ido abaratan- 
do hasta unos puntos en los que el espectacu- 
lar crecimiento se ha ido reduciendo. Ade- 
más, y aunque muchos empresarios conside- 
ren que «son los elegidos de Dios», la verdad 
es que existen muchos otros que temen cada 
vez más al poderío japonés. Entre ellos, el más 
concienciado es Gordon Bell, vicepresidente 
de Digital. En la Conferencia de la Quinta Ge- 
neración de Tokio (1981) participaron varios 
ingenieros de la empresa. Vinieron muy pre- 
ocupados por el futuro de la industria informá- 
tica americana, si no se toman a tiempo las me- 
didas adecuadas. 

El partido republicano de los Estados 
Unidos, algunos de cuyos miembros promi- 
nentes tienen intereses en el valle del Silicio, 
apoya plenamente la idea de prepararse fren- 
te al proyecto japonés de Quinta Generación. 

Otro aspecto a considerar, en el cami- 
no de dar la réplica a los japoneses en sus 
magníficos planes para la década siguiente, es 
el de, por un lado, unificar las investigaciones, 
para no malgastar esfuerzos, y por otro, evitar 
el espionaje industrial, sobre todo a nivel in- 
ternacional. El primer punto puede llevarse a 
cabo creando un organismo gubernamental 
que controle y sirva de catalizador en las in- 
vestigaciones. El segundo punto es difícil de 
solucionar. (Realmente, el valle del Silicio en 
estos últimos años podía ser una réplica mo- 
derna de la Viena de posguerra. El tráfico de 
secretos industriales y los escándalos están a 
la orden del día.) 

Además, los japoneses han invertido 
mucho en California, En ese Estado están es- 
tablecidas más de 700 empresas japonesas. 
Aunque al principio estas empresas intenta- 
ban emular a IBM, en los últimos tiempos tie- 
nen potencia suficiente para fabricar produc- 
tos nuevos y originales. Son el segundo país 
mundial en industria informática, y, desde lue- 
go, el competidor más serio del valle del Si- 
licio. 
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PROGRAMACION ORIENTADA 
AL OBJETO (II) 


ARÁ concluir esta somera 
presentación de los lengua- 
jes orientados al objeto, vea- 
mos brevemente las venta- 
jas y desventajas que apare- 
cen con este tipo de progra- 
mación. 


E Ventajas ] 


Los lenguajes orientados al objeto tie- 
nen muchas ventajas sobre los lenguajes tra- 
dicionales orientados' al procedimiento. La 
ocultación de la información y la abstracción 
de datos incrementan la fiabilidad y ayudan a 
separar la representación de la implementa- 
ción que se realice. La ligazón dinámica incre- 
menta la flexibilidad permitiendo añadir nue- 
vas clases de objetos (tipos de datos) sin tener 
que modificar el código existente. La herencia, 
añadida a la ligazón dinámica, permite volver 
a utilizar el código, Esto último tiene la venta- 
ja de reducir el volumen del código fuente 
que hay que programar, incrementando la 
productividad del programador, ya que nece- 
sitará escribir menos código original. La he- 
rencia mejora la «distribución del lenguaje 
fuente» («code facturing»). «Distribución de 
lenguaje fuente» significa que el código que 
realiza una tarea específica sólo se encuentra 
en un único lugar, y esta característica facilita 
la tarea del mantenimiento del software. 


YY Desventajas 


Los lenguajes orientados al objeto tie- 
nen unas cuantas características que pueden 
ser consideradas por algunos como desventa- 
josas. La más debatida es el coste en tiempo 
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de ejecución del mecanismo de ligazón diná- 
mica. El envío de un mensaje necesita más 
tiempo que una llamada de función que se 
haga directamente. Algunos estudios han mos- 
trado que con un gestor de mensajes bien im- 
plementado, esta particularidad supone 
aproximadamente 1,75 veces el tiempo reque- 
rido para una llamada a una función estándar. 
Las diferencias actuales en la velocidad de 
ejecución entre los lenguajes tradicionales y 
sus contrapartidas orientadas al objeto no pa- 
recen ser significativas. Esto se debe proba- 
blemente al hecho de que el overhead (carga 
adicional de trabajo) sólo es aplicable a envíos 
de mensajes y que estos envíos de mensajes 
llevan a cabo más de una llamada de función. 
Con frecuencia, una parte del trabajo que se 
realiza automáticamente con un envío de men- 
saje, debe hacerlo el programador en cual- 
quier caso, utilizando llamadas de función adi- 
cionales o incluso llamadas de función múlti- 
ples. De hecho, puede suceder a veces que, 


en aplicaciones muy grandes, la habilidad de 
estandarizar y ajustar la funcionalidad propor- 
cionada con los envíos de mensaje puede ha- 
cer que la aplicación funcione más rápida 
mente que su contrapartida tradicional. La ra- 
zón principal es que el envío de mensajes ob- 
via en gran medida la variabilidad que resul- 
ta de los distintos estilos de programación y ni- 
veles de habilidad. El envío de mensajes tam- 
bién elimina el código complejo, necesario 
con frecuencia cuando los programas tradicio- 
nales tienen que simular una ligazón dinámi- 
ca del tipo de la que proporciona automática- 
mente un lenguaje orientado al objeto. 

Otra de las desventajas que se suele ci- 
tar con frecuencia es que la implementación 
de los lenguajes orientados al objeto es más 
compleja que los lenguajes orientados al pro- 
cedimiento comparables, ya que el «hueco se- 
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mántico» entre esos lenguajes y el hardware 
típico de las máquinas es mayor. Por esta ra- 
zón, se requiere más simulación de software. 

Afortunadamente, el coste de imple- 
mentación del lenguaje se paga una sola vez 
para cada máquina. 

Otro problema posible es que el pro- 
gramador en lenguajes orientados al objeto 
debe aprender el contenido y manejo de una 
librería de clases (normalmente bastante ex- 
tensa) antes de empezar a poder preparar 
programas que sean realmente eficientes. Por 
esto, también, la utilidad en el manejo de los 
lenguajes orientados al objeto depende enor- 
memente de que se disponga de una buena 
documentación y de que en la implementación 
que se esté utilizando se ofrezcan buenas 
herramientas de desarrollo (menús, ventanas, 
etcétera) con funciones de manejo de datos y 
procesos básicos de desarrollo. 

Los que comienzan a utilizar los lengua- 
jes orientados al objeto suelen tener dificulta- 
des en resolver los problemas de programa- 
ción desde el punto de vista del objeto. 

Normalmente la dificultad estriba en 
cómo dividir en objetos el nuevo problema de 
programación. Un buen punto para comenzar 
es imaginarse que cada fragmento de progra- 
ma y cada conjunto de datos están flotando 
juntos en el espacio. Imaginemos a continua- 
ción unos trozos de cuerda que unen los frag- 
mentos de código y los datos que utilizan y 
otros trozos entre los segmentos de código 
que se utilizan conjuntamente o que realizan 
una función similar. Sigamos imaginando que 
movemos el conjunto de elementos que tene- 
mos (unos alrededor de los otros) hasta que la 
longitud total de la cuerda sea la más corta po- 
sible. Rodeando la estructura de cada dato se 
encontrarán la'rutinas que utiliza, y las divisio- 
nes naturales del código aparecerán con toda 
evidencia. La división de un problema en ob- 
jetos consiste simplemente en colocar las co- 
sas en el lugar donde deben estar. 

La división de un determinado proble- 
ma en objetos y la definición de aquellas ac- 
ciones que le son «naturales» simplifica enor- 
memente los programas. Si se dividen las ac- 
ciones de un objeto en las adecuadas porcio- 
nes, podremos pensar y escribir códigos a un 
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nivel más alto. Sabemos que los procedimien- 
tos a los que llamamos desde el código a nivel 
alto son correctos porque concuerdan con lo 
que pensamos sobre el problema. Cuando 
existe esta seguridad, cometemos menos erro- 
res. Tendremos menos preocupación sobre si 
los procedimientos subordinados están reali- 
zando lo que deben realizar. 


¿Por qué utilizar lenguajes 
orientados al objeto? 


La parte más importante de la progra- 
mación orientada al objeto no son las ventajas 
técnicas que puede proporcionar, sino el he- 
cho de que traspasa el umbral de la percep- 
ción. Cuando se coloca toda la información 
asociada con un nódulo en una instancia de 
clase, no sólo se simplifica el programa en su 
conjunto. Nos permite pensar en ese conjunto 
de información y actuar sobre él como una 
simple unidad. Percibimos el mundo que nos 
rodea como formado por objetos, y nuestro ce- 
rebro distribuye la información en pedazos. 
Mediante la utilización de objetos en un len- 
guaje de programación, podemos profundizar 
en un determinado patrón de pensamiento 
existente. 

Si pensamos los algoritmos en términos 
de objetos, nos serán mucho más fáciles de 
comprender. Esta facilidad de comprensión 
nace generalmente de los detalles: cómo un 
procedimiento se ha construido, sin necesidad 
de pensar sobre el resto del programa. Cuan- 
do se trabaja dentro de una clase (en cual- 
quier lenguaje orientado al objeto), se está a 
salvo de los efectos y complejidades de las 
otras partes del programa (que están fuera de 
esa clase). 

Un buen diseño y un código limpio no 
son las únicas ventajas de los lenguajes orien- 
tados al objeto. Se pueden escribir códigos 
muy perfectos en otros lenguajes, y horroro- 
sos en Smalltalk, por ejemplo. 

La programación orientada al objeto 
permite realizar la mayor parte del trabajo con 
antelación, almacenarla en una libería y reuti- 
lizarla como código genérico en posteriores 
programas. 


VOCABULARIO DE INFORMATICA MINI 


EAROM (Ellectrically-Alterable Read 
Only Memory). Memoria ROM suscepti- 
ble de ser borrada por medios eléctricos. 


EBCDIC (Extended Binary Coded Deci- 
mal Interchange Code). Código binario 


de 8 bits que deriva del código numérico 
BCCD. 


ECL (Emmiter Coupled Logic). Lógica 
acoplada por emisor. En grandes ordenado- 
res, generalmente tecnología cuya caracte- 
rística más importante es la velocidad. 


Eco. Repetición por pantalla de todo lo intro- 
ducido en el teclado. Muchas instrucciones 
no producen eco en la pantalla. Por ejem- 
plo, al pulsar instrucciones en un terminal, 


éstas se envían a la Unidad Central, sin que * 


tengan que aparecer por pantalla. Si apare- 
cen, se habrá producido el «eco». En la ma- 
yoría de los casos, la aparición de «eco» es 
controlable por el usuario. 


Editar. Modificar la forma de presentación o 
formato de los datos, por ejemplo, borrando 
o insertando caracteres, numeraciones de 
página, etc. 


Editor. Programa que sirve para corregir la 
edición de textos. Permite insertar partes, 
borrar, cambiar caracteres o frases comple- 
tas, etc. Los editores más completos son pro- 
gramas específicos de procesamiento de 
textos. 


EDP (Electronic Data Processing). Proce- 
so Electrónico de Datos. Se refiere a todas 
aquellas operaciones realizadas con orde- 
nadores electrónicos. 
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EEPROM (Electrically Erasable Pro- 
grammable Read Only Memory). Me- 
moria de sólo lectura (ROM) que se puede 
programar y borrar por medios eléctricos. 


Efectiva, dirección. Dirección derivada de 
aplicar un indexado o direccionamiento in- 
directo a la dirección especificada, y que se 
utiliza para identificar la posición real del 
operando con el que se está trabajando. 


Electromagnético, línea de retardo. Línea 
de retardo cuya operación está basada en 
el tiempo de propagación de las ondas elec- 
tromagnéticas, emitadas con una capacitan- 
cia e inductancia determinadas. 


Electronic data processing. (SC1) Proceso 
de datos, realizado primordialmente por 
dispositivos electrónicos. 

Perteneciente a un equipo de proceso de 
datos, que es predominantemente electróni- * 
co, como, por ejemplo, un ordenador. 


Electrostático, almacenamiento. Disposi- 
tivo que almacena los datos creando cargás 
electrostáticas en determinadas zonas de 
una superficie dieléctrica. 


Elemento. Componente individual de un con- 
junto. (Véase el tipo de elemento, como por 
ejemplo, lógico, secuencial, thresold, etc.). 


Emular. Imitar un sistema mediante otro, El 
sistema imitador aceptará los mismos datos, 
ejecutará los mismos programas y obtendrá 
los mismos resultados que el sistema imita- 
do. 


Emulador. Dispositivo o programa de orde- 
nador que realiza la acción de emular. 
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Enmascarar. Sistema por el cual los datos'o 
el programa se procesan según un esque- 
ma dado también llamado «máscara». 


Ensamblador. Programa (compilador) que 
se utiliza para traducir otro programa escri- 
to en Ensamblador a lenguaje máquina. 


Entero. Número que nó tiene una parte deci- 
mal. También puede referirse a una varia- 
ble que representa un entero. 


Entrada. Todo dato o texto o programa que 
se introduce al ordenador para que éste lo 
procese. 


EOF (End of File). Siglas que indican el fi- 
nal de un fichero. 


EOT (End of Transmission Character). 
Carácter que indica el final de una transmi- 
sión. También puede referirse al final de 
una cinta magnética (End of Tape). 


EPROM (Erasable Programmable Read 
Only Memory). Memoria ROM (sólo lec- 
tura) susceptible de ser borrada mediante 
rayos ultravioleta. 


Equivalencia. Operador lógico con la si- 
guiente propiedad: si P y Q y R son propo- 
siciones o afirmaciones, la equivalencia en- 
tre P, Q y R es verdad si, y sólo si, todas las 
proposiciones son verdaderas, o si todas 
ellas son falsas. 


Equivalente en dígitos binarios. Número 
de posiciones binarias que se necesitan 
para contar los elementos de un conjunto 
dado. 


Error. Diferencia entre una cantidad media u 
observada, y su valor real, especificado u 
obtenido teóricamente (véase Error abso- 
luto, Error heredado, Error de redondeo, 
Error de truncamiento). 


Error absoluto. Error expresado en las mis- 
mas unidades en las que está expresada la 


unidad que contiene el error. También pue- 


de referirse a la magnitud del error sin con- 
siderar su signo algebraico. 
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Error de cuantificación. Error producido 
en la conversión de una señal analógica en 
digital. Se debe a que el valor codificado no 
siempre corresponde exactamente con el 
valor obtenido en ese instante a partir de la 
señal analógica. 


Error de redondeo. Error producido por una 
operación de redondeo: Al eliminar las po- 
siciones de menos valor del número, se aña- 
de una unidad si el primer dígito eliminado 
es cinco, o superior, y no se suma nada si di- 
cho primer dígito es cuatro, o menor. En 
contraposición al error debido a un «trunca- 
miento». 


Error de truncamiento. Error debido a una 
operación de truncado. Es decir, se elimi- 
nan los últimos dígitos del número conside- 
rado (posiciones menos significativas) de- 
creciendo, por tanto, el valor del número. 
En contraposición a error de redondeo, 


Error de sintaxis. Error producido al haber 
intorducido los datos de forma distinta a 
como está especificado por las normas de 
sintaxis correspondientes. Cambio de orden 
de los parámetros, ausencia de signos de 
puntuación, paréntesis, etc. 


Error heredado. Error producido en un paso 
anterior (en un proceso secuencial), y 
acarreado a otros pasos siguientes. 


Error, mensaje de. Indicación de que se ha 
producido un error. ef 

Errores, ráfaga de. En transmisión de da- 
tos, secuencia de señales que contienen uno 
o más errores, que, sin embargo, se cuen- 
tan como una unidad, según un determina- 
do criterio. 


Errores, código de detección de errores. 
Código en el que cada expresión es confor- 
me con unas reglas determinadas, de forma 
que si la expresión resultante no es confor- 
me, inmediatamente se detecta el error. Á 
estos códigos también se les denomina có- 
digos de comprobación automática. . 


ESC. Se refiere al carácter Escape. 


